IDENTIFICATION 
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PRODUCT CODE 
PRODUCT NAME 
PRODUCT DATE 
NAINTAINER: 



AC-88726-HC 

CZKyAGO KUII-L LINE FREQUENCY CLOCK TEST 
1-MAY-78 

DIAGNOSTIC ENGINEERING 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO C'UNGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMHITMENT BY DIGITAL 
EQUirnENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESrONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1970. 1978 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 



DIGITAL 
DEC 



PDP 
DECUS 



UNIBUS 
DECTAPE 



MASSBUS 



SEO 0001 



C 1 

.0 GENERAL PROGRAM INFORnAIION 

SEQ 0002 

1.1 ABSTRACT 

THIS PROGRAM TESTS THE KUllL LINE FREQUENCY CLOCk. IT 
VALIDATES PROPER OPERATION UNDER BOTH INTERRUPT AND 
NON-INTERRUPT nOOEZ 

1.2 SYSTEM REQUIREMENTS 

THIS PROGRAM IS DESIGNED TO RUN ON ANY PDP-11 WITH AK 
OF MEMORY AND A KU11 LINE FREQUENCY CLOCK. 

1.3 DEVICE ADDRESSES 

THE DIAGNOSTIC ASSUMES THE LINE CLOCK ADDRESS IS 
177546. VARIOUS TESTS IN THE DIAGNOSTIC ENSURE THAT 
THE LINE CLOCK IS NOT AFFECTED WHEN THE PAPER TAPE 
PUNCH (ADDRESS 177556) AND TELETYPE (ADDRESS 177566) 
ARE ACCESSED. THEREFORE, AN OCCASIONAL "a" MAY BE 
OUTPUT AT THE TELETYPE AND A CHARACTER MAY BE PUNCHED 
AT THE PAPER TAPE PUNCH. THESE ARE NOT ERRORS. 



.0 OPPERATING INSTRUCTIONS 

2.1 LOADING 

PROCEDURE fOR NORMAL BINARY TAPES SHOULD BE FOLLOWED 

A. ABSOLUTE LOADER PROGRAM MUST BE IN MEMORY 

B. PLACE THE BINARY TAPE IN THE PAPER TAPE READER 

C. LOAD ADDRESS 17500 

D. DEPRESS START (TAPE SHOULD READ IN) 

2.2 STARTING 

PROGRAM STARTING ADDRESS IS 000200 

A. LOAD ADDRESS 000200 

B. SELECT SWITCH REGISTER OPTIONS (SEE SECTION 2.3) 

NOTE: IF THE PROCESSOR DOES NOT HAVE A 
HARDWARE SWITCH REGISTER. LOCATION f 176 SHOULD 
BE LOADED WITH THE APPROPRIATE SWITCH SETTINGS 
AFTER THE DIAGNOSTIC HAS BEEN LOADED INTO MEMORY. 
THE PROGRAM IS THEN STARTED AT ADDRESS 200. 



C. DEPRESS START (PROGRAM SHOULD START RUNNING) 


SWITCH REGISTER 


OPTIONS 


HERE IS A LIST 


OF CONSOLE SWITCHES AND THEIR EFFECT ON 


THE PROGRAM... 




SWITCH 


ACTION IF SET 


15 


HALT ON ERROR 


U 


LOOP ON CURRENTLY EXECUTING TEST 


13 


INHIBIT ERROR PRINTOUTS 


12 


(UNUSED) 


11 


INHIBIT ITERATIONS 


10 


BELL ON ERROR 


9 


LOOP ON ERROR 


8 


LOOP ON TEST SPECIFIED IN SWR<7:0> 


7-0 


« OF TEST TO LOOP ON (ONLY WHEN SWR8 = 1) 



2. A EXECUTION Ti-^FS 



D 1 

EXECUTION TI«E FOR THIS PROGRAM IS DEPENDENT ON THE 

MODEL OF PDP-11 IT IS BEING RUN ON. FOR A PDP-11/^0 SEQ 0003 

ABOUT 5 SECONDS IS NECESSARY TO DO 1 PASS OF THE PROGRAM 
WITHOUT ITERATIONS. 



3.0 ERROR INFORMATION 

3.1 STANDARD ERROR REPORTING PROCEDURES 

ERROR PRINTOUTS CONSIST OF FROM 4 TO 8 COLUMNS OF DATA. A 
DATA HEADER, AND POSSIBLY A SHORT ERROR MESSAGE DESCRIBING 
THE ERROR. FOR EXAMPLE... 

CLOCK FAILED TO INTERRUPT 

PC PS SP TEST# LKS 

002262 0003AA 00076A 000007 000300 

THE FIRST A COLUMNS OF OF THE EKROR MESSAGE ALWAYS SHOW THE 
CONTENTS OF THE PC, PS. SP. AND THE TEST NUMBER. MORE COLUMNS 
OF DATA ARE ADDED WHERE THEY MIGHT BE RELAVENT TO A PARTICULAR 
ERROR. 

3.2 UNEXPECTED TRAP ERROR REPORTING 

AN UNEXPECTED TRAP TO ADDRESS 4 CAUSES THE FOLLOWING 
MESSAGE TO BE PRINTED OUT... 

TRAPPED TO LOC A FROM LOCATION "XXXXXX" 
RESTARTING PROGRAM 

IN THE ACTUAL MESSAGE THE "XXXXXX" IS REPLACED BY THE PC 
ADDRESS PUSHED ONTO THE STACK WHEN THE UNEXPECTED TRAP 
OCCURS. THE PROGRAM THEN TRVS TO RESTART ITSELF 
DESPITE SWITCH REGISTER SETTINGS. 

3.3 POWER FAIL 

IF A POWER FAIL CONDITION IS DETECTED THE FOLLOWING MESSAGE 
IS PRINTED... 

POWER 

AFTER PRINTING OUT THE MESSAGE THE PROGRAM TRYS TO 
RESTART ITSELF. 



5.0 DEVICE INFORMATION 

5.1 GENERAL INFORMATION 

THE LINE CLOCK INTERRUPT VECTOR ADDRESS IS 100 
THE LINE CLOCK PRIORITY LEVEL IS BR6 

5.2 REGISTERS 

LINE CLOCK STATUS REGISTER (LKS) 7775A6 



I I I f I I I I I I I I I III 

7*6 

I I I t I I I I I I I I I I I 



BJT6 IF SET M0NIT0R=1 CAUSES AN INTERRUPT 



E 1 

BIT/ MONITOR BIT. SET BY CLOCK. CLEARED BY USER 



SEO 0004 



LlSf ING 



CZKUA-G LINE 
C2KUAG.P11 

1 
2 
3 

5 
6 

7 
8 

9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
4A 



47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



FREQUENCY 
10-APR-78 



167400 
000000 



001100 



177776 

177774 
}77772 
177570 
177570 



000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000006 
000007 



CLOCK 
11:05 



PROGRAM MACYll 30A(1052) 



F 1 

19-APR-78 14:25 PAGE 2 



SEQ 0005 



.ABS 

.ENABL AHA 
•LIST BE 
.NLIST nz, MO. CND 
$SUR=167400 
STN=0 

.ENABL 
.TITLE CZKWA-G 
•COPYRIGHT (C) 
•DIGITAL EQUIPMENT CORP, 
•MAYNARD, MASS. 01754 



ABS 

LINE FREQUENCY CLOCK PROGRAM 
1970.1977 



•PROGRAM BY J. COHEAU 
* 

•THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 HAINDEC SYSMAC 
• PACKAGE (HAINDEC-ll-DZQAC-BD.AUG 29,1975. 



SBTTL 
* 

* 
* 
* 
* 
* 
* 
* 



OPERATIONAL SWITCH SETTINGS 



SWITCH 

15 
14 
13 
11 
10 

9 

8 

7-0 



USE 



HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 

INHIBIT ITERATIONS 

BELL ON ERROR 

LOOP ON ERROR 

LOOP ON TEST IN SWR<7:0> 

fOF TEST TO LOOP ON IF SWR<8> IS SET 



.SBTTL BASIC DEFINITIONS 

.••INITIAL ADDRESS OF THE STACK POINTER ••• 1100 ••• 

STACK= 1100 

.EQUIV ENT. ERROR 

.EQUIV lOT. SCOPE 

PS= 177776 

.EQUIV PS.PSW 



STKLMT= 177774 



PIRQ= 
DSWR= 
DOISP= 



177772 
177570 
177570 



:BASIC DEFINITION OF ERROR CALL 
:BASIC DEFINITION OF SCOPE CALL 
; PROCESSOR STATUS WORD 

.■STACK LIMIT REGISTER 
:PROGRAM INTERRUPT REQUEST REGISTER 
:HAROWARE SWITCH REGISTER 
:HARDWARE DISPLAY REGISTER 



.■•GENERAL PURPOSE REGISTER DEFINITIONS 



R0= 
R1 = 
R2= 
R3= 
R4= 
R5 = 
R6= 
R7= 
SP= 
PC= 



ZO 
XI 
12 
tl 
24 
X5 
Z6 
17 
X6 
17 



GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
STACK POINTER 
PROGRAM COUNTER 
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CZICUAG.Pn lO-APR-78 11:05 BASIC DEFINITIONS 

57 ;*PRIORITY LEVEL DEFINITIONS 

58 000000 PRO= 0 ;; PRIORITY LEVEL 0 

59 000040 PR1= 40 ;;PRIORITY LEVEL ^ 

60 000100 PR2= 100 ;;PRI0RITY LEVEL 2 

61 OOOUO PR3= UO ; .-PRIORITY LEVEL 3 

62 000200 PR4= 200 ; .-PRIORITY LEVEL 4 

63 000240 PR5= 240 ;;PRI0RITY LEVEL 5 

64 000300 PR6= 300 .-.-PRIORITY LEVEL 6 

65 000340 PR7= 340 ;;PRI0RITY LEVEL 7 
66 

67 .-•"SWITCH REGISTER" SWITCH DEFINITIONS 

68 100000 SW15= 100000 

69 040000 SW14= 40000 

70 020000 SW13= 20000 

71 010000 SW12= 10000 

72 004000 SW11= 4000 

73 002000 SW10= 2000 

74 001000 SW09= 1000 

75 000400 SW08= 400 

76 000200 SW07= 200 

77 000100 SW06= 100 

78 000040 SW05= 40 

79 000020 SW04= 20 

80 000010 SW03= 10 

81 000004 SW02= 4 

82 000002 SW01= 2 

83 000001 SW00= 1 

84 .EQUIV SW09.SW9 

85 .EQUIV SW08,SW8 

86 .EQUIV SW07.SW7 

87 .EQUIV SW06,SW6 

88 .EQUIV SW05,SW5 

89 .EQUIV SW04,SW4 

90 .EQUIV SW03,SW3 

91 .EQUIV SW02.SW2 

92 .EQUIV SW01.SW1 

93 .EQUIV SW00,SW0 
94 

95 .-'DATA BIT DEFINITIONS (BITOO TO BIT15) 

96 100000 BIT15= 100000 

97 040000 BIT14= 40000 

98 020000 BIT13= 20000 

99 010000 B1T12= 10000 

100 004000 BIT11= 4000 

101 002000 BIT10= 2000 

102 001000 BIT09= 1000 

103 000400 BIT08= 400 

104 000200 BIT07= 200 

105 000100 BIT06= 100 

106 000040 BIT05= 40 

107 000020 BIT04= 20 

108 000010 BIT03= 10 

109 000004 BIT02= 4 
no 000002 BIT01= 2 

111 000001 BIT00= 1 

112 .EQUIV BIT09,BIT9 



CZKUA-G LINE FREQUENCY 
CZKUA&.Pll lO-APR-78 



CLOCK PROGRAH 
11:05 



113 






1U 






115 






116 






117 






118 






119 






120 






121 






122 






123 






124 




000004 


125 




000010 


126 




000014 


127 




000014 


128 




000014 


129 




000020 


130 




000024 


151 




000030 


132 




000034 


133 




000060 


13A 




000064 


135 




000240 


136 






137 




1 77546 


138 




000240 


139 




000774 


UO 




000776 


HI 






U2 






U3 






144 




000000 


145 






146 






147 






148 




000174 


149 


000174 


000000 


150 


0001 76 


A A A A A 

000000 


151 






152 






153 


000200 


000137 


154 






155 






156 






157 






158 




000204 


159 




000046 


160 


000046 


006232 


161 




000052 


162 


000052 


000000 


163 




000204 



H 1 

NACYll 3CA(1052) 19-APR-78 14:25 PAGE 4 
BASIC DEFINITIONS 



SEO 0007 



.EQUIV BITC3.BIT8 

.EQUIV BIT07,BIT7 

.EQUIV BIT06,BIT6 

.EQUIV Bn05.BIT5 

.EQUIV 6IT04.BIT4 

.EQUIV BIT03.BIT3 

.EQUIV BIT02,BIT2 

.EQUIV BITOl.BITl 

.EQUIV BITOO.BITO 



;*BASIC "CPU" TRAP VECTOR 
ERRVEC= 4 
RESVEC= 10 
TBITVEC=14 
TRTVEC= 14 
BPTVEC= 14 
I0TVEC= 20 
PWRVEC= 24 
EHTVEC= 30 
TRAPVEC=34 
TICVEC= 60 
TPVEC= 64 
PIRQVEC=240 
.•niSCELANHUS EQUATES 
L»(S=177546 
N0P=240 
BUF2=774 
BUF 1=776 



ADDRESSES 

TINE OUT AND OTHER ERRORS 
RESERVED AND ILLEGAL INSTRUCTIONS 
"T" BIT 
TRACE TRAP 

BREAKPOINT TRAP (BPT) 
INPUT/OUTPUT TRAP (lOT) t. SCOPE** 
POUER FAIL 

EMULATOR TRAP (EHT) ••ERROR** 

"TRAP" TRAP 

TTY KEYBOARD VECTOR 

TTY PRINTER VECTOR 

PROGRAM INTERRUPT REQUEST VECTOR 



.SBTTL TRAP CATCHER 



.=0 

;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".+2. HALT" 

.••SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
.-•LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
.=174 

DISPREG: .WORD 0 ;;S0FTWARE DISPLAY REGISTER 

SUREG: .WORD 0 ;;SOFTyARE SWITCH REGISTER 

.SBTTL STARTING AODRESS(ES) 

JMP a#KSTART ::JUnP TO STARTING ADDRESS OF PROGRAM 

.SBTTL ACT11 HOOKS 
.HOOKS REQUIRED BY ACT11 

$SVPC = . .'SAVE PC 

.=46 

SENDAD :;1)SET L0C.46 TO ADDRESS OF SENDAD IN .SEOP 

.=52 

.WORD 0 ;;2)SET L0C.52 TO ZERO 

.=$SVPC ;; RESTORE PC 
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CZKUAG. 


P11 


10-APR-78 11:05 


ACTll 


HOOKS 






164 








165 
166 
167 






.SBTTL 


COMMON 


TAGS 




168 






.♦THIS 


TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 


169 
170 






:*USED 


IN THE PROGRAM. 




171 




001100 






.=1100 






172 


001100 




SCHTAG 






.-START OF COMMON TAGS 


173 


001100 


000000 


SPASS 




.WORD 


0 


-CONTAINS PASS COUNT 


174 


001102 


000 


STSTNn 


.BYTE 


0 


-CONTAINS THE TEST NUMBER 


175 


001103 


000 


SERFLG 


.BYTE 


0 


.-CONTAINS ERROR FLAG 


176 


001104 


000000 


SICNT 




.yORD 


0 


-CONTAINS SUBTEST ITERATION COUNT 


177 


001106 


000000 


SLPADR 


.yORD 


0 


:CONTAINS SCOPE LOOP ADDRESS 


178 


001110 


000000 


SLPERR 


.yORD 


0 


.-CONTAINS SCOPE RETURN FOR ERRORS 


179 


001112 


000000 


SERTTL 


.yORD 


0 


; CONTAINS TOTAL ERRORS DETECTED 


180 


001114 


000 


SITEHB 


.BYTE 


0 


; CONTAINS ITEM CONTROL BYTE 


181 


001115 


001 


SERHAX 


.BYTE 


1 


: CONTAINS MAX. ERRORS PER TEST 


182 


001116 


000000 


$ERRPC 


.yORD 


0 


.■CONTAINS PC OF LAST ERROR INSTRUCTION 


183 


001120 


000000 


SGOADR 


.UORD 


0 


:CONTAINS ADDRESS OF 'GOOD' DATA 


184 


001122 


000000 


SBDADR 


.UORD 


0 


■:CONTAINS ADDRESS OF 'BAD' DATA 


185 


001124 


000000 


SGDDAT 


.UORD 


0 


.-CONTAINS 'GOOD' DATA 


186 


001126 


000000 


SBDDAT 


.UORD 


0 


-.-CONTAINS 'BAD' DATA 


187 


001130 


000000 






.UORD 


0 


■ :RESERVED— NOT TO BE USED 


188 


001132 


000000 






.UORD 


0 




189 


001134 


000000 






.UORD 


0 




190 


001136 


177570 


SUR: 




.UORD 


DSUR 


-.-ADDRESS OF SUITCH REGISTER 


191 


001140 


177570 


DISPLAY: .WORD 


DDISP 


ADDRESS OF DISPLAY REGISTER 


192 


001142 


177560 


STKS: 




177560 




;;TTY KBD STATUS 


193 


001144 


177562 


STKB: 




177562 




;;TTY KBD BUFFER 


194 


001146 


177564 


$TPS: 




177564 




;;TTY PRINTER STATUS REG. ADDRESS 


195 


001150 


177566 


STPB: 




177566 




;:TTY PRINTER BUFFER REG. ADDRESS 


196 


001152 


000 


SNULL 




.BYTE 


0 


CONTAINS NULL CHARACTER FOR FILLS 


197 


001153 


002 


SFILLS 


.BYTE 


2 


;:CONTAINS # OF FILLER CHARACTERS REQUIRED 


198 


001154 


012 


SFILLC 


.BYTE 


12 


INSERT FILL CHARS. AFTER A "LINE FEED" 


199 


001155 


000 


STPFLG 


.BYTE 


0 


;;"TERMINAL AVAILABLE" FLAG {BIT<07>=0=YES) 


200 


001156 


000000 


SREGAD 


.UORD 


0 


;: CONTAINS THE ADDRESS FROM 


201 














;;UHICH (SREGO) UAS OBTAINED 


202 


001160 


000000 


SREGO 




.UORD 


0 


CONTAINS ( (SREGAD) «0) 


203 


001162 


000000 


SREGI 




.UORD 


0 


-CONTAINS ((SREGAD)«2) 


204 


001164 


000000 


SREG2 




.UORD 


0 


; .-CONTAINS ( (SREGAD) ^4) 


205 


001166 


000000 


SREG3 




.UORD 


0 


; .-CONTAINS ( (SREGAD) ^6) 


206 


001170 


000000 


SREG4 




.UORD 


0 


; .'CONTAINS ( (SRE6AD)*10) 


207 


001172 


000000 


SREG5 




.UORD 


n 
u 


;:CONTAINS ((SREGAD)^12) 


208 


001174 


000000 


SREG6 




.UORD 


0 


•;CONTAINS ( (SREGAD) ♦I 4) 


209 


001176 


000000 


SREG7 




.UORD 


0 


;: CONTAINS ( (SREGAD) ^16) 


210 


001200 


000000 


STUPO 




.UORD 


0 


;:USER DEFINED 


211 


001202 


000000 


STHPI 




.UORD 


0 


;:USER DEFINED 


212 


001204 


000000 


$THP2 




.UORD 


0 


;;USER DEFINED 


213 


001206 


000000 


$THP3 




.WORD 


0 


■:USER DEFINED 


214 


001210 


000000 


$THP4 




.UORD 


0 


;.-USER DEFINED 


215 


001212 


000000 


$TMP5 




.UORD 


0 


-.-USER DEFINED 


216 


001214 


000000 


$TMP6 




.UORD 


0 


-;USER DEFINED 


217 


001216 


000000 


$TMP7 




.UORD 


0 


>;USER DEFINED 


218 


001220 


000000 


STIMES 


0 




■:MAX. NUMBER OF ITERATIONS 


219 


001222 


000000 


SESCAPE:0 




;:ESCAPE ON ERROR ADDRESS 
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SEQ 0009 



220 001224 

221 001230 

222 001231 

223 001232 



177607 
077 
015 

000012 



000377 



SBELL 
$OUES 
SCRLF 
SLF: 



.ASCIZ <207><377><377> 

.ASCII /?/ 

.ASCII <15> 

.ASCIZ <12> 



CODE FOR BELL 
QUESTION MARK 
CARRIAGE RETURN 
LINE FEED 
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P1 1 


10-APR-7A 1 1 '05 


COMMON 


TAGS 






22A 








C C J 


001234 


000000 

UvvvVv 


UORD: 


000000 






ecu 














227 
228 






.SBTTL 


ERROR POINTER TABLE 




b c u 

229 

C C 7 






.••THIS 


TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 


250 






;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER 


FOUND IN 


231 






.■•LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN 


THE TABLE IS PERTINENT. 


232 






; 'NU 1 t 1 


IF SITEMB IS 0 THE ONLY PERTINENT DATA 


IS (SERRPC). 


233 






• aNOTF? 


EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


23A 














235 








CM 


• •DDfUTC Tn TUC CDDDD MCCCAKC 




236 








DH 


■■POINTS TO THE DATA HEADER 




237 








DT 


■■POINTS TO THE DATA 




238 






• ft 


DF 


; .-POINTS TO THE DATA FORMAT 




239 














240 














241 


001236 




• c nn 1 o ■ 








2^2 


nni 2X6 


ni ni.62 




EM1 


LKS 


LKS 

k ^ J 


243 


001240 


010543 




DHI 


•"PC PS SP TEST# WAS 


s/a " 

•J / D 


244 


001242 


010624 




DTI 


■SERRPC SREG7 iREG6 tREG5 LKS SGDDAT 

vLnm \>«vr\Lw> fVnLww^vnLW^fU^w/vwvvni 




245 


001244 


000000 

V VV VV V 




0 

V 






246 

t ~ W 
















vU 1 CHv 


ni nA^7 




EM2 


•••CLOCK FAILED TO INTERRUPT" 




248 


001250 


010674 




DH2 


;^^PC PS SP TEST* LKS 


• i 


249 


001252 


010746 




DT2 


■ SERRPC. SREG7,$REG6,$REG5, LKS 




250 


001254 


000000 

w w w w w w 




0 

w 




251 














252 


001 256 


010762 

w 1 w r U C 




EM3 


"CLOCK INTERRUPTED WHEN THE PROCESSOR 


PRIORITY WAS TOO HIGH" 


253 


001260 

W W " *a ^0 W 


011055 




DH3 


^•PC PS SP TEST* LKS 




254 


001262 


011126 




DT3 


; SERRPC .SREG7,SREG6,SREG5AKS 




255 


001264 


000000 

w w w w w w 




0 

w 




256 
















nni 266 


01 1 1^7 

U 1 1 1 He 




EM4 


••'CLOCK GIVES UNEQUAL # OF PULSES OVER 


TWO EQUAL PERIODS OF TIME 


258 


001270 


011241 




DH4 


"PC PS SP TEST* 1ST 


2ND" 


259 


001272 


011376 




DT4 


; SERRPC, SRE67,SREG6.SREG5.SREG1.SREG0 




260 


001274 


000000 

w w w w w w 




0 




261 














cue 


nni276 

VV 1 C ( U 


011 ^1 ^ 

1/ 1 1 H 1 H 




EM5 


;"LKS REGISTER RESPONDS TO ANOTHER ADDRESS" 


263 


001300 


011465 




DH5 


"PC PS SP TEST# ADDRESS" 


264 


001302 


011536 




DT5 


■ SERRPC, SRE67.SREG6.SREG5,SGDADR 




265 


001304 


000000 




0 




266 














267 


001 306 

WW 1 ^wU 


01 1 552 

w 1 \ J JC 




EM6 


"A NO SACK TIMEOUT HAS OCCURED" 




268 


001310 


011610 




DH6 


;"PC PS SP TEST# LKS 


■ ■ 


269 


001312 


0M662 




DT6 


; SERRPC, SREG7,SRE66,SREG5, LKS 




270 


001314 


000000 

www w w 




e 




271 














272 


001316 


011676 




EM7 


•••WRONG CONDITION COOES WERE PUT ONTO STACK BY INTERRUPT" 


275 


001320 


011765 




DH7 


"PC PS SP TEST* CC 


CC"' 


27 A 


001322 


012044 




DT7 


• SERRPC, SREG7.SREG6.SREG5.BUF1. SGDDAT 




275 


001324 


000000 




0 




276 














277 


001326 


012062 




EM10 


"WRONG PC PUT ONTO THE STACK BY AN INTERRUPT" 


278 


001330 


012136 




OHIO 


■"PC PS SP TEST* " 




279 


001332 


012222 




0T10 


■ SERRPC ,SREG7,SREG6,SREG5.BUF2, SGDDAT 





SEQ 0010 



CZKWA-G 


LINE 


FREQUENCY 


CLOCK PROGRAM 


MACY11 


30A(10' 


CZKWAG. 


P1 1 


10-APR-78 


4 4 AC 

1 1 :05 




ERROR 


'OINTcR 


280 


A A 4 7 7 i 

001 334 


A A A A A A 

000000 








A 

0 


281 














282 


001336 


012240 








f M 4 4 

EM1 1 


283 


001340 


012316 








DH1 1 


28A 


001342 


A 4 1 7 r y 

012354 








A T 4 4 

DTI 1 


285 


A A 4 7 / / 

001344 


AAA A A A 

000000 






0 




286 














287 














288 










.-STARTUP CODE 


289 




A A 4 y A A 

001400 






- 1 inn 




290 


A A 4 y A A 

001400 


A 4 7 A / 

012706 


AAi AAA 

001000 




r CTADT 


nuv 


291 


001404 


005046 








n B 


292 


001406 


A 4 7 7 y £ 

01 3746 


A AAA 1 / 






Mnu 

nuv 


293 


001412 


A 4 17 7 7 

012737 


AA1 / 

001^22 


AAAA^y 

OUOOj^ 




Mnu 

nuv 


294 


A A 4 i 1 A 

001420 


4 A y y A A 

104400 








TRAP 


295 


A A 4 y 1 

001422 


016666 


A AAAA1 

000002 


AAAAAi 

000006 


O"* * • 


Mnu 

nuv 


296 


001430 


012716 


AA1 / 

001 436 






Mnu 

nuv 


T rt T 

297 


A A 4 y 7 y 

001434 


A A A A A 1 

000002 








DT I 

n 1 1 


298 


A A 4 / 7 / 

001436 


A 4 1 y 7 7 

012637 


A A A A T / 

000034 




O J» ■ 


Mnu 

nuv 


299 


A A 4 / y *^ 

001442 


A A y 7 7 7 

004737 


00661 c 






1 CP 

J On 


300 


001446 


A 4 A 7 1 1 

010322 










301 


AA4 y CA 

001450 








CTABT ■ 




302 


A A 4 y C A 

001450 


A4 17AZ 

012706 


AAi i AA 

0011 00 






Mnu 


VAT 

303 


A A4 i e t 

001454 


A A r A 1 £ 

005026 








ri B 


V A/ 

30A 


AA4 y 

001456 


A1 1 7 A y 

022706 


AAi i 'iL. 
001 1 £0 






Lnr 


305 


A A 4 y /I 

001462 


A A 4 7 7 y 

001374 








one 


7 Ay 

306 


A A ^ t £ t 

001464 


A 4 1 7 A / 

012706 


AAI AAA 

00 1 000 






NflU 


7 A 7 

307 


A A 4 y 7 A 

001470 


A 4 17 7 7 

012737 


AAX 1/ A 

006 jhO 


AAAA1 A 
0000^0 




Mnu 


T A a 

308 


A A 4 y 7 / 

001476 


A 4 17 7 7 

012737 


AAAT/ A 

OOOjhO 


AAAAOO 

00002(1: 




MOV 


309 


A A 4 C A / 

001504 


A 4 177 7 

012737 


AA7X T/ 

OOf 63h 


AAAAT A 
000030 




MOU 

nuv 


7 4 A 

310 


A A 4 C 4 1 

001512 


A4 1777 

012737 


AAAT/ A 

OUOJhO 


AAAAT 0 
00003£ 




MOU 


311 


A A 4 C 1 A 

001520 


A4 17 77 

012737 


AI A A/ A 
010040 


AAAAT/ 
000034 




MOV 


74 O 

312 


AA4 f 1^ 

001526 


A4 1777 

012737 


000340 


AAAATA 
000030 




MOV 


7 4 7 

313 


AA4 C V/ 

001534 


A4 1777 

012737 


01 UUf H 


AAAAO/ 
0000^4 




MOV 

ni/ V 


7 4 y 

31A 


A A4 C / 1 

001542 


A< 17T7 

012737 


AAAT/ A 

000j40 


AAAAOZ 

OOOOZo 




MOV 


TIC 

315 


AA1 CCA 

001550 


A1 T7V7 

013737 


006200 


AA^i 70 

006172 




MOV 

nv V 


7 4 y 

316 


A A 4 c r ^ 

001556 


A Ar A 77 

005037 


AAi OOA 

001 ZcO 






CLR 


7 4 7 

317 


A A 4 r ^ 1 

001 562 


A Ar A7 7 

005037 


AAI 000 
001 £CC 






ri ft 


7 4a 

318 


A A 4 C 

001 566 


4 4 1777 

112737 


AAAAAi 

000001 


AAi i 1 C 

001 n D 






319 


AA4 C 7/ 

001574 


A4 17T7 

012737 


001 3fH 


AAI 1 AZ 
001106 




NOV 

nww 


320 


AA4 Z A1 

001602 


A4 17T7 

012737 


001 OOc 


AAi 1 i A 
001 1 10 




NOV 


7^4 

321 


001610 


A1 V7/ Z 

0137h6 


AAAAA/ 






MOV 




AA1 i 

001614 


Ai T7/ d, 

013746 


AAAAAiL 
000006 






MOV 


323 


AA4 L. 1A 

001620 


A4 1777 

012737 


AAI XTZ 
001 OJH 


AAAAA/ 

OOOOOh 




HOV 


71/ 

324 


A A 4 Z 1 ^ 

001626 


AAC 777 

005777 


1 77VAZ 

Iff jOh 






TST 


71C 

325 


AA4 £. 71 

001632 


AAA/ A7 

000407 








BR 


326 


AA4 

001634 


AI 1777 

012737 


AAAi 7Z 
0001 ft 


AAI 1 TiL 
001 1 36 


64$: 


MOV 


327 


AA4 ^ 

001642 


A4 17V7 

012737 


AAAi 7Z 
0001 f H 


AAi i / A 

001 1 hU 




MOV 


VIA 

328 


AA4 Z C A 

001650 


All* Irf 

022626 








CMP 


329 


AAl Z C 1 

001652 


AI 1Z 17 

012637 


AAAAAiL 
OOOOOO 




65S: 


MOV 


330 


AA'1 X. C^ 

001656 


A A 1Z T7 

012637 


AAAAAZ 

OOOOOh 






MOV 


7 T 1 

331 


AA4 Z Z 1 

001662 


AAC 7T7 

005737 


000042 






TST 


7 71 

332 


AA4 

001666 


AA4 / A4 

001401 








BEO 


J J J 


vv 1 0 * V 










RESET 


334 














335 
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SEQ 0011 



."TRAPPED iRYlNG TO ACCESS LKS REGISTER" 
."(PC) (PS) (SP) TEST*" 
;$ERRPC,SREG7,tREG6,SREG5 



#1000. SP 
-(SP) 
34. -(SP) 
#64$. 34 

2(SP).6(SP) 
#65$, (SP) 

(SP)*.34 
PC.$TYPE 



; INITIALIZE THE STACK SO UE CAN CALL THE TYPEOUT 

•■SAVE CURRENT TRAP VECTOR 
: .-SETUP NEW TRAP VECTOT 
.-.-PUSH OLD PSW AN PCON STACir 

;;REPLACE OLD PC WITH NEU 
:: RE STORE PSU 

.•RESTORE OLD TRAP VECTOR 
iPRINTOUT STARTUP MESSAGE 
; ADDRESS OF MESSAGE "MAINDEC-ll-DZKWA-F " 



#$CMTAG,R6 
(R6)* 

#$BD0AT,R6 
.-6 

flOOO.SP 

f$SCOPE.a#I0TVEC 

#340.a#I0TVEC*2 ; 

#$ERR0R.a#EMTVEC 

#340,a#EMTVEC>2 ; 

f$TRAP,a#TRAPVEC 

f340,a«TRAPVEC^2: 

#$PVRDN.a#PWRVEC 

#340,3#PURVEC*2 ; 

$EN0CT.$EOPCT ; 

$TIMES 

$E SCAPE 

#1,$ERHAX 

#..$LPA0R 

#..$LPERR 

a#4.-(SP) 

a#6.-(SP) 

#64$.4 

asvR 

65$ 

#SWREG,SUR 

fDISPREG, DISPLAY 

(SF)*.(SP)* ; 

(SP)*,a#6 

(SP)*,a#4 

42 

T0001 



FIRST LOCATION TO BE CLEARED 
CLEAR MEMORY LOCATION 
DONE? 

LOOP BACK IF NO 

;; SETUP THE STACK POINTER 
:IOT VECTOR FOR SCOPE ROUTINE 
LEVEL 7 

;EHT VECTOR FOR ERROR ROUTINE 
LEVEL 7 

:TRAP VECTOR FOR TRAP CALLS 
LEVEL 7 
: POWER FAILURE VECTOR 
LEVEL 7 

SETUP END-OF -PROGRAM COUNTER 
INITIALIZE NUMBER OF ITERATIONS 
CLEAR THE ESCAPE ON ERROR ADDRESS 
ALLOW ONE ERROR PER TEST 
INITIALIZE THE LOOP ADDRESS FOR SCOPE 
SETUP THE ERROR LOOP ADDRESS 
SAVE ERROR VECTOR 

SET UP TIME OUT VECTOR 

TRY TO REFERENCE HARDWARE SWR 

BRANCH IF NO TIMEOUT TRAP OCCURS 

POINT TO SOFTWARE SWR 

; POINT TO SOFTWARE DISPLAY REG 

RESTORE STACK 

RESTORE ERROR VECTOR 

LOADED BY A MONITOR 
BR IF NO 

YES— GENERATE AN INIT 



CZKUA-G LINE FREQUENCY CLOCK PROGRAM 
lO-APR-78 11:05 



CZKUAG. 


P11 


336 




337 




338 




339 


001672 


340 


001674 


341 


001702 


342 


001710 


343 


001716 


344 


001722 


345 


001 726 


346 


00'. 730 


347 




348 




349 




350 




351 




352 


001732 


353 


001734 


354 


001742 


355 


001750 


356 


001736 


357 


001760 


358 


001766 


359 


001774 


360 


001776 


361 




362 




363 




364 




365 




366 


002000 


367 


002002 


368 


002010 


369 


002016 


370 


002024 


371 


002032 


372 


002034 


373 


002040 


374 


002042 


375 




376 




377 




378 




379 




380 


002044 


381 


002046 


382 


002054 


383 


002062 


384 


002070 


385 


002076 


386 


002102 


387 


002104 


388 


002110 


389 


002112 


390 


002114 


391 


002116 



000004 
012737 
012737 
012737 
012706 
005037 
000401 
104011 



000004 
012737 
012737 
012737 
000005 
012737 
032737 
001401 
104001 



000004 
012737 
012737 
012737 
012737 
000005 
105737 
100401 
104001 



000004 
012737 
012737 
012737 
012737 
005037 
005000 
105737 
100403 
005200 
001373 
104001 



001730 000004 
000340 000006 
001716 001106 
001000 
177546 



006266 000004 

000340 000006 

001756 001106 

000200 001124 

000100 177546 



006266 000004 

000340 000006 

000200 001124 

002032 001106 

177546 



006266 000004 

00034C 000006 

002070 001106 

000200 001124 
177546 

177546 
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ERROR POINTER TABLE 
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SEQ 0012 



.SBTTL TEST THAT THE LKS CAN BE REFERENCED WITHOUT A BUS ERROR 
:LKS ACCESS TEST 



T0001 



R0001 
10001 

E0001 



SCOPE 

nov 
nov 
nov 

NOV 
CLR 
BR 

ERROR 11 



fEOOOl ,8f4 
f340.af6 
IR0001 .tlPAOR 
#1000. SP 
8fLKS 
10002 



.PREPARE FOR ADDRESSING THE LKS REGISTER. BAD HARDWARE 
.COULD CAUSE A TRAP TO 4 

: TIGHTEN UP THE SCOPE LOOP A BIT IN CASE OF AN ERROR 
.SETUP THE STACK POINTER IN CASE OF AN ERROR 
;JUST REFERENCE LKS. DONT WORRY IF IT DIDNT CLEAR YET 
;WE DIDNT TRAP IF UE REACH HERE. GO ON TO NEXT TEST 
.ERROR: ::TRAPED TRYING TO ACCESS THE LKS REGISTER 



SBTTL TEST THAT STARI CLEARS LINE CLOCK INTERRUPT ENABLE BIT 
.TEST THAT START CLEARS LINE CLOCK INTERRUPT ENABLE BIT 
SCOPE 



T0002: 



R0002: 



E0002; 



nov 
nov 
nov 

RESET 

nov 

BIT 
BEQ 
ERROR 



ITRAP0.af4 

«340,a#6 

ffR0002,SLPADR 

«200,SGDDAT 
#100. LKS 
T0003 



;SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 
;N0 INTERRUPTS WHILE PRINTING FATAL nESSAGE 
.SETUP LOOPBACK ADDRESS IN CASE OF AN ERROR 



;HAVE GOOD DATA INFO READY FOR 
.TEST THE INTERRUPT ENABLE BIT 



TYPEOUT IN r-^i OF AN ERR 



.•ERROR. CLOCK INTERRUPT ENABLE NOT CLEARED BY INIT 



•SBTTL TEST THAT START SETS CLOCK FLAG 
:TEST THAT START SETS CLOCK FLAG 



T0003: 



R0003: 



E0003: 



SCOPE 

nov 
nov 

NOV 

NOV 

RESET 

TSTB 

BNI 

ERROR 



#TRAP0,d#4 
#340, a#6 
#200,SGD0AT 
#R0003,SLPADR 

LKS 
T0004 



.SBTTL TEST THAT CLOCK FLAG W 
;TEST THAT CLOCK FLAG WILL SET 
T0004: SCOPE 



R0004: 



A0004: 



E0004; 



NOV 

NOV 

NOV 

NOV 

CLR 

CLR 

TSTB 

BNI 

INC 

BNE 

ERROR 1 



fTRAP0,d#4 
f340.a«6 

«R0004,ILPADR 

#200.IGDDAT 

LKS 

RO 

LKS 

TOOOS 

RO 

A0004 



; SETUP VECOR IN CASE OF UNFORSEEN PROBLEHS 

;N0 INTERRUPTS WHILE PRINTING FATAL MESSAGE 

:HAVE GOOD DATA INFO READY FOR TYPEOUT IN CASE OF AN ERR 

; SETUP LOOPBACK ADDRESS IN CASE OF AN ERROR 

.•SHOULD SET THE CLOCK FLAG 

.•FIND OUT IF IT DID 

:G0 ON TO THE NEXT TEST IF IT SET THE CLOCK FLAG 
.•ERROR. CLOCK FLAG NOT SET BY INIT 



ILL SET AFTER SUFFICIENT PERIOD OF TinE (20 ns niN) 
AFTER SUFFICIENT PERIOD OF TinE (20 nS niN) 

.•SETUP VECOR IN CASE OF UNFORSEEN PROBLENS 

;N0 INTERRUPTS WHILE PRINTING FATAL NESSAGE 

: SETUP LOOPBACK ADDRESS IN CASE OF AN ERROR 

;HAVE GOOD DATA INFO READY FOR TYPEOUT IN CASE OF AN ERR 

.•CLEAR THE CLOCK FLAG 

;AND A TINER LOCATION 

:IS CLOCK FLAG SET 

:N0. INCRENENT COUNT 003 WAIT FOR SONENORE 
.-WAIT SUFFICIENT AMOUNT OF TINE FOR CLOCK 
.-ERROR. CLOCK FLAG FAILED TO SET 



CZKUA-G LINE FREQUENCY CLOCK PROGRAM 
CZKUAG.P11 10-APR-78 11:05 



392 

393 

394 

395 

396 

397 

398 

399 

AOO 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

44S 

446 

447 
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TEST THAT CLOCK FLAG WILL SET AFTER SUFFICIENT 



PERIOD OF TIME (20 MS NIN) 



SEQ 0013 



.SBTTL TEST THAT INTERRUPT 
.-TEST THAT INTERRUPT ENABLE 



002120 


A A A A A 1 

000004 






T0005: 


SCOPE 




002122 


012/37 


006266 


A A A A A i 

000004 




HOV 


#TRAP0,af4 


002130 


012737 


A A A T / A 

000340 


A A A A A ^ 

000006 




HOV 


#340, a#6 


002136 


012737 


A A A 4 A A 

000100 


001 124 




MOV 


M4AA A^Kf^AV 

f lOO.SGDOAT 


002144 


012737 


A A 1 4 £ 1 

002164 


001106 




MOV 


mAAAAP MAfl^f^ 

f R0005 .SLPADR 


A A ^ 4 r ^ 

0021 52 


01 3746 


AAA 7 / A 

000340 






MOV 


A A ? / A \ 

PR7,-(SP) 


A A *> 4 C 

0021 56 


Ai ^ 

012746 


002164 






NOV 


#641, -(SP) 


Art T 1 £. T 

002162 


Artrtrtrtl 

000002 








RTI 




002164 








64$: 






002164 


AACAT7 

005037 


1 7/546 




B AArt C . 

R0005 : 


CLR 


LKS 


UUc 1 fM 


UU3UU J 








r 1 D 


D T 


002172 


105737 


177546 




A0005: 


TSTB 


LKS 


002176 


100404 








BNI 


80005 


002200 


005203 








INC 


R3 


002202 


001373 








BNE 


A0005 


002204 


104001 






E0005: 


ERROR 1 




002206 


000410 








BR 


T0006 


002210 








B0005: 






002210 


012737 


000100 


177546 




NOV 


#100. LKS 


002216 


032737 


000100 


177546 




BIT 


#100, LKS 


002224 


001001 








BNE 


T0006 


002226 


104001 






E1005: 


ERROR 1 





.«;rttl test that interrupt 

.TEST that INTERkiiPT F»«*9LE 



002230 


000004 






T0006: 


SCOPE 




002232 


012737 


006266 


000004 




NOV 


#TRAP0,a#4 


002240 


012737 


000340 


000006 




NOV 


#340, a#6 


002246 


012737 


000000 


001124 




NOV 


#0,SGOOAT 


002254 


012737 


002274 


001106 




NOV 


fR0006,SLPADR 


002262 


013746 


000340 






NOV 


PR7.-(SP) 


002266 


012746 


002274 






NOV 


#64$, -(SP) 


002272 


000002 








RTI 


002274 








64$: 






002274 


005037 


177546 




R0006: 


CLR 


LKS 


002300 


005003 








CLR 


R3 


002302 


105737 


177546 




A0006: 


TSTB 


LKS 


002306 


100404 








BNI 


B0006 


002310 


005203 








INC 


R3 


002312 


001373 








BNE 


A0006 


002314 


104001 






E0006: 


ERROR 


1 


002316 


000412 








BR 


T0007 


002320 








80006: 






002320 


012737 


000100 


177546 




NOV 


#100. LKS 


002326 


005037 


177546 






CLR 


LKS 


002332 


032737 


000100 


177546 




BIT 


#100. LKS 


002340 


001401 








8EQ 


T0007 


002342 


104001 






El 0006: 


ERROR 


1 



ENABLE BIT NAY BE SET 
BIT NAY BE SET 

SETUP VECOR IN CASE Or UNFORSEEN PRCBLEHS 
NO INTERRUPTS WHILE PRINTING FA1AL MESSAGE 
HAVE GOOD DATA INFO READY FOR TYPEOUT IN CASE OF AN ERR 
SETUP LOOP BACK ADDRESS IN CASE OP ERROR 
;PUT NEW PS ON STACK 
.-PUT NEW PC ON STACK 
: POP NEW PC AND PS 



INITIALIZE A COUNTER LOCATION 

IS THE CLOCK FLAG SET? 

IF SO, CONTINUE ON WITH THE TEST 

IF NOT INCRENENT THE COUNTER LOCATION 

AND GO TEST THE CLOCK FLAG AGAIN. UNLESS... 

CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD > 20 NS 



; CLEAR CLOCK FLAG AND SET INTERRUPT ENABLE 
:1S INTERRUPT ENABLE SET? 

.ERROR INTERRUPT ENABLE NOT SET 



ENABLE BIT NAY BE CLEARED 
BIT NAY BE CLEARED 

; SETUP VECOR In CASE OF UNFORSEEN PROBLEMS 
:N0 INTERRUPTS WHKE PRINTING FATAL MESSAGE 



; INITIALIZE THE LOOPb'ACK ADDRESS 
::PUT NEW PS ON STACK 
;.PUT NEW PC ON STACK 
POP NEW PC AND PS 



IN CASE OF AN ERROR 



INITIALIZE A COUNTER LOCATION 

IS THE CLOCK FLAG SET? 

IF SO, CONTINUE ON WITH THE TEST 

IF NOT INCREMENT THE COUNTER LOCATION 

AND GO TEST THE CLOCK FLAG AGAIN. UNLESS... 

CLOCK FLAG DID NOT SET AFTER A W.MTINC »ERIOD > 20 MS 



CLEAR CLOCK FLAG AND SET INTERRUPT ENABLE 

CLEAR INTERRUPT ENABLE 

TEST THE INTERRUPT ENABLE BIT 

IS INTERRUPT ENABLE CLEARED 

ERROR, ERROR INTERRUPT BIT CAN NOT BE CLEARED 



CZKVA-G LINE FREQUENCY CLOCK PKOGRAH 



C2KWAC.P11 10-APR-78 
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450 










451 










452 


002344 


000004 






453 


002346 


012737 


006266 


000004 


454 


002354 


012737 


000340 


000006 


455 


002362 


012737 


000300 


001124 


456 


002370 


012737 


002412 


001106 


457 


002376 


012737 


002474 


000100 


458 


002404 


012737 


000340 


0001 02 


459 


002412 


012706 


001000 




460 


002416 


005046 






461 


002420 


012746 


002426 




462 


002424 


000002 






463 


002426 


005037 


177546 




464 


002432 


005003 






465 


002434 


105737 


177546 




466 


002440 


100404 






467 


002442 


005203 






468 


002444 


001373 






469 


002446 


104001 






470 


002450 


000415 






471 


002452 








472 


002452 


012737 


000100 


177546 


473 


002460 


005000 






474 


002462 


005200 






475 


002464 


000240 






476 


002466 


001375 






477 


002470 


104002 






478 


002472 


000404 






479 


002474 


105737 


177546 




480 


002500 


100401 






481 


002502 


104001 






482 










483 










484 










485 










486 










487 










488 


002504 


000004 






489 


002506 


012737 


006266 


000004 


490 


002514 


012737 


000340 


000006 


491 


00<522 


012737 


002544 


001106 


492 


002530 


012737 


002654 


000100 


493 


002536 


012737 


000340 


000102 


494 


002544 


005037 


177546 




495 


002350 


013746 


000004 




496 


002554 


012737 


002572 


000004 


497 


002562 


012737 


000240 


177776 


♦98 


002570 


AAA J A J 

000404 






499 


002572 


022626 






500 


002574 


012637 


000004 




501 


002600 


000431 






502 


002602 


012637 


000004 




503 


002606 


012706 


001000 
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TEST THAT INTERRUPT ENABLE BIT NAY BE CLEARED 



SEO ecu 



.SBTTL TEST THA 
.TEST THAT CLOCK 
T0007 



T CLOCK INTERRUPTS TO CORRECT VECTOR ADDRESS 
INTERRUPTS TO CORRECT VECTOR ADDRESS 



R0007: 



1$: 

A0007: 



E0007: 
80007: 



C0007: 



El 0007: 
D0007: 

E20007: ERROR 1 



SCOPE 




NOV 


f TRAP0,M4 


NOV 


«340,a#6 


NOV 


«300,kGDDAT 


NOV 


fR0007,$LPADR 


NOV 


«D0007.100 


NOV 


f340,a#102 


NOV 


flOOO.SP 


CLR 


-(SP) 


NOV 


#11. -(SP) 


RTI 




CLR 


LKS 


CLR 


R3 


TSTB 


LKS 


BNI 


B0007 


INC 


R3 


BNE 


A0007 


ERROR 


1 


BR 


T0010 


NOV 


#100. LKS 


CLR 


RO 


INC 


RO 


NOP 




BNE 


C0007 


ERROR 


2 


BR 


T0010 


TSTB 


LKS 


BNI 


T0010 



.-SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 

;N0 INTERRUPTS WHILE PRINTING FATAL HESSAGE 

.HAVE GOOD DATA INFO READY FOR TYPEOUT IN CASE OF AN ERR 

INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 

.SET UP VECTOR RETURN POINTER 

;1 INTERRUPT IS ENOUGH 

.GET STACK READY FOR INTERRUPTS 

;OROP CPU PRIORITY LEVEL 

:SET RETURN ADDRESS ON STACK FRON 'RTI' 

.RETURN TO NEXT INSTRUCTION 

.INITIALIZE A COUNTER LOCATION 

;IS THE CLOCK FLAG SET? 

;IF SO. CONTINUE ON WITH THE TEST 

:IF NOT INCRENENT THE COUNTER LOCATION 

:AND GO TEST THE CLOCK FLAG AGAIN. UNLESS... 

; CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD > 20 NS 



.'ENABLE INTERRUPT 

.STALL FOR TINE 
.-WAIT FOR INTERRUPT 
.-ERROR, DIDNT GET INTERRUPT 

.-ENTER HERE IF INTERRUPTED 

:ERROR, INTERRUPT NOT CAUSED BY CLOCK 



.SBTTL TEST THAT CLOCK WILL INTERRUPT WITH PROCESSOR AT PRIORITY 5 
:TEST THAT CLOCK WILL INTERRUPT WITH PROCESSOR AT PRIORITY 5 



;NOTE: 
T0010: 



R0010: 



IS: 



2$: 



IF THERE 
SCOPE 
NOV 
NOV 
NOV 
NOV 
NOV 
CLR 
NOV 
NOV 
NOV 
BR 
CHP 
NOV 
BR 
NOV 
NOV 



IS NO HARDWARE *PSW' THIS TEST WILL BE SKIPPED 



«TRAPO,a#A 

#340, a#6 

fROOIO.SLPAOR 

#00010,100 

#340,a#102 

LKS 

4,-(SP) 
#1S,4 
#PR5.PS 
2S 

(SP)*,(SP)* 

(SP)*,4 

T0011 

(SP)*,4 

#1000,SP 



.■SETUP VECOR IN CASE OF UNFORSEEN PROBLENS 

;N0 INTERRUPTS WHILE PRINTING FATAL NESSAGE 

.INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 

;SET UP VECTOR RETURN POINTER 

:N0 INTERRUPTS ALLOWED AFTER THE FIRST ONE 

.•SAVE BUS TINEOUT VECTOR CONTENTS 

.SET A SERVICE 'PC IN CASE TINEOUT OCCURS 

:00 WE HAVE A HARDWARE 'PSW*? 

.-BRANCH IF YES 

.•RESTORE STACK FRON TINEOUT 

; RESTORE BUS TINEOUT VECTOR CONTENTS 

:RESTORE BUS TINEOUT VECTOR CONTENTS 
.•INITIALIZE THE STACK POINTER 



C 2 

CZKUA-G LINE FREQUENCY CLOCK PROGRAM HACYll 30A(1052) 19-APR-78 U:25 PAGE 12 



C2KUAG. 


P11 10-APR-78 


11 :05 




TEST THAT CLOCK 


WILL INTERRUPT 


504 


002612 


005003 








CLR 




R3 


505 


002614 


105737 


177546 




A0010: 


TSTB 




LKS 


506 


002620 


100404 








BMI 




B0010 


507 


002622 


005203 








INC 




R3 


508 


002624 


001373 








BNE 




A0010 


509 


002626 


104001 






E0010: 


ERROR 


1 




510 


002630 


000415 








BR 




T0011 


511 


002632 








BOOlO: 








512 


002632 


012737 


000100 


177546 




nov 




#100. LKS 


513 


002640 


005000 








CLR 




RO 


514 


002642 


005200 






COOlO: 


INC 




RO 


515 


002644 


000240 








NOP 






516 


002646 


001375 








BNE 




C0010 


517 


002650 


104002 






ElOOlO: 


ERROR 


2 




518 


002652 


000404 








BR 




TOOll 


519 


002654 


105737 


177546 




D0010: 


TSTB 




LKS 


520 


002660 


100401 








BHI 




TOOll 


521 


002662 


104001 






E 20010 : 


ERROR 


1 




522 


















523 


















524 


















525 










.SBTTL 


TEST 


THAT CLOCK WILL N 


526 










.-TEST THAT CLOCK WILL NOT INTE 


527 










.-NOTE: 


IF THERE 


IS NO HARDWARE 


528 


002664 


000004 






T0011: 


SCOPE 






529 


002666 


012737 


006266 


000004 




nov 




#TRAP0.af4 


530 


002674 


012737 


000340 


000006 




nov 




«340.a#6 


531 


002702 


012737 


002710 


001106 




nov 




fR0011,SLPA0R 


532 


002710 


005037 


177546 




ROOll: 


CLR 




LKS 


533 


002714 


005003 








CLR 




R3 


534 


002716 


105737 


177546 




A0011: 


TSTB 




LKS 


535 


002722 


100404 








Bni 




BO0 11 


536 


002724 


005203 








INC 




R3 


537 


002726 


001373 








BNE 




A0011 


538 


002730 


104001 






E0011: 


ERROR 


1 




539 


002732 


000443 








BR 




T0012 


540 


002734 








8001 1 : 








541 


002734 


012706 


001000 






nov 




#1000. SP 


542 


002740 


013746 


000004 






nov 




4,-(SP) 


543 


002744 


012737 


002762 


000004 




nov 




#1S,4 


544 


002752 


012737 


000300 


177776 




nov 




#PR6,PS 


545 


002760 


000404 








BR 




2S 


546 


002762 


022626 






IS: 


cnp 




(SP)*.(SP)* 


547 


002764 


012637 


000004 






nov 




(SP)*.4 


548 


002770 


000424 








BR 




T0012 


549 


002772 


012637 


000004 




2$: 


nov 




(SP)*-.4 


550 


002776 


012737 


003026 


000100 




nov 




#E1011,100 


551 


AAV A A / 

003004 


012737 


000100 


177546 




nov 




#100, LKS 


552 


003012 


A A P A A Y 

005003 








CLR 




R3 


553 


003014 


105737 


177546 




C0011: 


TSTB 




LKS 


554 


003(;20 


i AA/ Ay 

100404 








Bni 




00011 


555 


003022 


005203 








INC 




R3 


556 


003024 


001373 








BNE 




C0011 


557 


003026 


104001 






E1011: 


ERROR 


1 




558 


003030 


000715 








BR 




TOOll 


559 


003032 








D0011: 









SEQ 0015 



INITIALIZE A COUNTER LOCATION 

IS THE CLOCK FLAG SET? 

IF SO. CONTINUE ON WITH THE TEST 

IF NOT INCREHENT THE COUNTER LOCATION 

AND 60 TEST THE CLOCK FLAG AGAIN. UNLESS... 

CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD > 20 MS 



.-ENABLE INTERRUPT 

.•STALL FOR SOnE TIME 

;WAIT FOR INTERRUPT 

.•ERROR, INTERRUPT FAILED TO OCCUR 

.•ENTER HERE IF INTERRUPTED 

:ERROR. INTERRUPTDID NOT CLEAR THE CLOCK FLAG 



r INTERRUPT WITH PROCESSOR PRIORITY 
)UPT WITH PROCESSOR PRIORITY 6 
'PSW* THIS TEST WILL BE SKIPPED 



SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 
NO INTERRUPTS WHILE PRINTING FATAL MESSAGE 
SETUP LOOPBACK ADDRESS IN CASE OF AN ERROR 

INITIALIZE A COUNTER LOCATION 

IS THE CLOCK FLAG SET? 

IF SO. CONTINUE ON WITH THE TEST 

IF NOT INCREMENT THE COUNTER LOCATION 

AND GO TEST THE CLOCK FLAG AGAIN. UNLESS... 

CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD > 20 MS 



INITIALIZE THE STACK POINTER 

SAVE BUS TIMEOUT VECTOR CONTENTS 

SET SERVICE 'PC IN CASE TIMEOUT OCCURS 

DO WE HAVE A HARDWARE 'PSW'? 

BRANCH IF YES 

RESTORE STACK FROM BUS TIMEOUT 
RESTORE BUS TIMEOUT VECTOR CONTENTS 

RESTORE BUS TIMEOUT VECTOR CONTENTS 

SET UP VECTOR RETURN 

ENABLE INTERRUPT 

INITIALIZE A COUNTER LOCATION 

IS THE CLOCK FLAG SET? 

IF SO, CONTINUE CN WITH THE TEST 

IF NOT INCREMENT THE COUNTER LOCATION 

AND GO TEST THE CLOCK FLAG AGAIN. UNLESS... 

CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD > 20 MS 



CZKUA-G 


LINE 


FREQUENCY 


CLOCK PROGRAM 


CZKUAG. 


P11 


IO-APR-78 


11 :05 




560 


003032 


000240 






561 


A A 9 A 9 f 

00303A 


AAA / A 

000240 






562 


A A T A 7 ^ 

003036 


AAA y A 4 

000401 






563 


OC3040 


104003 






56A 










565 










c z z 

566 










567 










568 










569 


AAVA/ 

003042 


A A A A A y 

000004 






570 


A A V A / / 

003044 


A 4 A W V 

012737 


000200 


001124 


571 


003052 


012737 


006266 


000004 

W W W W ■ 


57' 


A A T A y A 

003060 


A 4 A V T V 

012737 


000340 


000006 


57:, 


A A V A y A 

003066 


A 4 1 V T V 

012737 


003074 


001106 


57A 


003074 


005037 


177546 




c T r" 

575 


A A T 4 A A 

003100 


A A C A A T 

005003 






576 


A A T 4 A^ 

003102 


4 AC VT V 

105737 


177546 




577 


003106 


100404 






578 


A A T 4 4 A 

0031 10 


A AC 1 A T 

005203 






579 


AAV 44^ 

003112 


A A4 W T 

001373 






580 


A A T 4 4 / 

0031 14 


4 A y A A4 

104001 






581 


AAT4 4 Z 

003116 


AAA / A V 

000407 






582 


A A 7 4 ^ A 

003120 








583 


003120 


005037 


177546 




58A 


A A T 4 ^ / 

003124 


A AAA A C 

000005 






r a r 

585 


003126 


4 A C V T V 

105737 


177546 




c O^ 

586 


A A Y 4 T ^ 

003132 


4 AA/ A4 

100401 






587 


AAY4 

003134 


4 Ay AA4 

104001 






COB 

588 










589 










590 










591 










592 










c n T 

593 










59A 










595 


A A 9 4 Y Z 

003136 


A A A A A y 

000004 






596 


AAT4 / A 
0031^0 


AAC AAA 

005000 






crt T 

597 


A A 7 4/1 

003142 


A AC A A 4 

005001 






c no 

598 


AAV 4 / / 

003144 


A 4 T *v y d. 

013746 


000340 






A 1 T 4 C A 

0031 50 


A4 Z 

012746 


003156 




600 


AAT 1 C i 

0031 5 . 


AAAAAI 

000002 






601 


A AT 4 fx 

003156 








602 


AAT 4 CX 

0031 56 


A4 O VT V 

012737 


003156 


001106 


603 


003164 


AAC 

005037 


177546 




z n/ 

604 










^ AC 

605 


AAT 4 7A 

003170 


aa c a at 

005003 






606 


A A T 4 

003172 


4 AC TT f 

10573/ 


177546 




y A7 

607 


AAT4 

0031 76 


4 A A y Ay 

100404 






Z AO 

608 


AAT^AA 

003200 


AAC OAT 

005203 






Z A A 

609 


AAT 

003202 


AA1 TTT 

001373 






^ 4 A 

610 


003204 


4 A / A A 4 

104001 






611 


AA T ^AZ 

003206 


AAA d / 

000524 






612 


AAT '14 A 

003210 








613 


AAT i A 

003210 


012737 


003210 


001106 








177546 




615 


003222 


005003 
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TEST THAT CLOCK WILL NOT INTERRUPT WITH PROCESSOR PR'IORITr 6 



SEQ 0016 



NOP 
NOP 

BR T0012 
E20011: ERROR 3 



.■GIVE CLOCK EXTRA TIME TO INTERRUPT 

.■ERROR, CLOCK INTERRUPTED WITHOUT HAVING PRIORITY 



.SBTTL 
.•TEST T 
T0012: 



TEST THAT RESET SETS CLOCK FLAG 
HAT RESET SETS CLOCK FLAG 



SCOPE 






NOV 


#200,S6DDAT 


HAVE GOOD DATA INFO READY FOR TYPEOUT IN CASE 


nov 


#TRAP0.i#4 


SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 


MOV 


#340. 8#6 


NO INTERRUPTS WHILE PRINTING FATAL MESSAGt 


MOV 


IR0012.SLPADR 


■SETUP LOOPBACK ADDRESS IN CASE OF AN ERROR 


CLR 


LKS 


■CLEAR CLOCK FLAG 


CLR 


R3 


;INITIALIZE A COUNTER LOCATION 


TSTB 


LKS 


;1S THE CLOCK FLAG SET? 


BNI 


B0012 


;IF SO, 'ONTINUE ON WITH THE TEST 


INC 


R3 


;IF INCREMENT THE COUNTER LOCATION 


BNE 


A0012 


;AND 60 TEST THE CLOCK FLAG AGAIN. UNLESS... 


ERROR 


1 


; CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD 


BR 


T0013 




CLR 


LKS 




RESET 




.SHOULD SET CLOCK FLAG 


TSTB 


LKS 




BRI 


T0013 




ERROR 


1 


.-ERROR, RESET DIDN'T SET CLOCK FLAG 



ROOT 2: 
A0012: 

E0012: 
B0012: 

E10012: 



.SBTTL TEST LINE CLOCK REPEATABILITY 
.TEST LINE CLOCK REPEATABILITY 
.-HAKE SURE THAT OVER TWO EQUAL PERIODS OF TIME 
.-THE CLOCK PUTS OUT THE SANE NUMBER OF PULSES 



T0013; 


SCOPE 






R0013: 


CLR 


RO 


.'CLEAR 1ST TINE COUNT 




CLR 


R1 


.•CLEAR 1ST CLOCK COUNT 




NOV 


PR7.-(SP) 


::PUT NEW PS ON STACK 




MOV 


#64S.-(SP> 


.■;PUT NEW PC ON STACK 




RTI 




;; POP MEW PC AND PS 


64S: 








R1013: 


NOV 


«R1013.$LPADR 


.■ERROR IN NEXT FEW INSTRUCTIONS CAUSES A SHORT SCOPE LO 




CLR 


LKS 










.SYNC ON CLOCK FLAG A COUPLE OF TINES 




CLR 


R3 


; INITIALIZE A COUNTER LOCATION 


A0013: 


TSTB 


LKS 


;IS THE CLOCK FLAG SET? 




BMI 


B0013 


.-IF SO, CONTINUE ON WITH THE TEST 




INC 


R3 


.IF NOT INCREMENT THE COUNTER LOCATION 




BNE 


A0013 


;AND GO TEST THE CLOCK FLAG AGAIN. UNLESS... 


E0013: 


ERROR 


1 


.-CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD > 20 MS 




BR 


T0014 




B0013: 








R2013: 


MOV 


#R2013,SLPADR 


:MAKE SCOPE LOOP SHORT IN CASE OF AN ERROR 




CLR 


LKS 






CLR 


R3 


; INITIALIZE A COUNTER LOCATION 



CZKWA-G 


LINE 


FREQUENCY 


CLOCK PROGRAn 


HAcrn 


30A(1052) 


g 2 
19-APR-78 14 


25 PAGE U 




CZKUAG. 




lO-APR-78 


11:05 




TEST LINE CLOCK 


REPEATABILITY 




SEQ 0017 


0 1 o 


UU JtCH 


1 U J f jf 


177546 




r AAI 7 ■ 


T C TD 






, lo Inc LLUL^ r LAu oC 1 : 




t,^ 7 
01 f 


UUjcjU 


1 An/ t\L 
1 UUhUh 








Dil 1 




nAAl 7 
UUU 1 J 


• ir CA rAklTIklllC AkI UITU TUP TCCT 
air 3U« LUNIINUC UN Wiin InC Irol 




O 1 0 




AAC3AT 

UUjcUj 








I %tc 




BX 

n J 


• ir klAT IkirPPMPkIT TUP TAIIklTPB lATATIAkl 
, If NU 1 INLnCnCNI 1 nC LUUNICn LULAIIUN 




0 1 7 


nnxoxL 

UU J£ JH 


AA1 X7X 

UU 1 Jf J 








Que 




r AA1 7 
LUU 1 J 


•Akin flA TPCT TUP n A'*r CI AH kCklU llkll PCC 

, nNU uU iCal 1 nc LLU.K rLAU AuAiN. UNLC9J... 




OcU 


UUOc jO 


1 AA AA1 
1 UhUU I 






C 1 AAI T . 

c 1 UU 1 J : 


C DDAD 
CKKUK 


1 




• ri Arr pi nin mat cpt aptpb a uaitimr pppiaa 

aLLULh r LAU U IV NU 1 9C 1 ArlCn A WAlliNU rCnlUlf 


^ 5A MC 


OC 1 


UU jchU 


AAACA7 
UUU jUr 








PD 




T001 A 

1 UU 1 H 






Occ 


UU JCHC 








riAAl 7 . 

UUU 1 J : 
















AA^A77 
UUDUj' 


177546 






ILK 




L ^ o 








UUjchO 


U JC 1 Jf 


000200 


177546 




BIT 
0 1 1 




if 5AA 1 r C 
'cUU , Ln d 


■ IC TUP n nrv ci ai: cpt 7 

,10 1 nc LLULK rLAU jC 1 . 






UU JC JH 


AA1 X7L 
UU 1 Jf H 








□ NC 




1 c 
1 # 


• MA UAIT fab it 
, NUr WAI 1 run 11 




OcC) 


UUjc jO 


AACA77 
UUjUjr 


177546 






ILK 










Ocf 


UUjcOc 


IUj f jf 


177546 




c AAI 7 • 
r UU 1 J • 


TCTD 




L K o 


• IC ri Arir PI AC cpt 

,H LLULn r LMU 9C 1 




OcC 


UU JcOO 


1 AAAAX 
1 UUUU J 








DDI 
DrL 




fiAAl X 
UUU 1 J 


• MA 

• NU 




Oc't 


UUjc f U 


AAC3A1 
UUjcU I 








1 ur 

INl. 




PI 

K 1 


• 41 TA riATir TAIIMT 
(▼1 lU LLUL^ Luuni 




OJv 


AA7575 
UUjcf c 


AACA7 / 
UUDU J 1 


177546 










L ^ 9 


• n PAP ri nrit ip cpt 

,LLCAK LLULK ir oC 1 




Oj I 


AAX57A 
UUjc r 0 


AA*;5An 
UU JCUU 






r:AAl 7 • 
wUU 1 J - 






PA 
nU 


• 4'1 TA T IMP TAIIMT 

* ~ 1 1 U 1 InC LUUN 1 




Ojc 


AA7XAA 
UUj jUU 


AA1 77A 
UU 1 J r U 








One 




C AAI X 
r UU 1 J 


• PPPPAT IIUTII DA-A 
;ntrC«l UNIIL KU-U 




Oj J 


AA?TA? 
UU J jUc 


AACAAA 
UU jUUU 












PA 
nU 


•ri PAP 5Mn TIMP TAIIMT 
, LLCnn cNU 1 inC LUUNI 




0 J*l 


AAT7AA 
UU J jUh 


AA*;AA5 
\J\Jj\J\)c 








ri p 

LLK 




B5 


• ri PAP 5Mn ri Arir ta'imt 

, LLCAn CNU LLULK LUJNI 




0 j3 


AA77AA 
UU J jUO 


A1 5777 
U 1 c r Jf 


003306 


001106 


D7A1 7 • 
N jU 1 J • 


MAU 

nuv 




jfpxm X <i PAftp 

• K jU 1 J , •L' nUK 


• lUCIIBP A CUABT CTAPP 1 AAP 
« INSUnC n SnUN 1 OLUrC LUUr 




030 


UUjjIh 


AACA77 


177546 






ri D 




1 irc 






OJI 


















• cvur AM ri Arr pi ac Turrp 

aOTNL UN LLULk rLAU IHILC 




O JO 


AA775A 
UUj JCU 


AAi^AAY 

VVJVVJ 








ri p 




PX 

K J 


• IMITTAI I7P A TAIIMTPB lAFATIAM 
alNlliALlAC A LUUniCn LULAIiUN 




0 JT 


UUjJCC 


^ AC777 

1 Uj f Jf 


177546 




uAAl X • 
n\i\j 1 J • 


TSTft 






• IC TUP ri Arr PI Alt CPT7 
, lo 1 nc LLULn r LAVJ oC 1 . 




OhU 


UU J JcO 


1 AAAAA 
1 UUhUh 








RM t 

on 1 




IAA1 X 
JUU 1 J 


•IP CA TAMTIMIIP am UITU TUP TPCT 
air oU« LUNIINUC UN Hi in 1 nC ICdi 




Oh I 


AA777A 

UU J jjU 


AA<;5A7 
UU jcUj 








t ur 

INL 




RX 


■ IP MAT IMTBPHPMT TUP TAIIMTPB lAfATIAM 
air NU 1 INLnCnCNI 1 nC LUUrllCn LULAIiUN 






UU J J JC 


AA1 777 

UU 1 jr J 












UAA1 X 
nUU 1 J 


• AMA CA TPCT TUP tl nTK CI AC ACAIM IIMI PCC 

a ANU VU lOI 1 nc LLULK rLAO AOAin. UNLCo5... 




On J 


UUj J JH 


1 AA AA1 
1 Uh UU 1 






F5nni X • 

CCUU 1 J • 


FDPAP 


1 




• n Arir ci ac nin mat cpt aftpb a uaitimc ppbiaa 

,LLULIk rLnll VIV nUI 9C 1 ArlCn n WAI 1 INU rCniUll 


^ 5A MC 
^ t u n J 


t>.LL 
Oh«i 


UU jjjO 


AAAACA 
UUUh JU 








RD 

Dn 




TAA1 A 
1 UU 1 <t 






Oh J 


UU jjHU 








JMV 1 J • 












OmO 


AAT7AA 
UUj jhU 


A1 5777 
U 1 c ' Jf 


003340 


001106 


WHU 1 J . 


nuv 




ifPAAl X tl DAftB 


• IMCllBF A CUABT CTAPP 1 AAP 
( lN9UnC n anUn 1 dLUrC LUUr 




Oh f 


AA77AA 
UUj jhO 




177546 






ri B 




1 It C 






Oho 


UUj J JC 


AACAA7 
UUjUUj 








ri p 




PX 

n J 


•IMITIAI 17P A PAIIMTPB 1 ArATIAM 
ilNiiiALitC A LUUNICn LULHI iUN 




0H7 


Uuj J JH 


1 AS777 

1 U J f J f 


177f'.6 




^uu 1 J • 


TCTH 
1 9 1 D 






• IC TUP ri Arif PI AC CFT7 
a 1 o 1 nc LLULK r Lnv OC 1 . 




0 jU 


AAX7AA 
UUj jOU 


1 AAA A A 
1 UUhUh 












1 AAI X 
LUU 1 J 


• IC CA TAMTIMIIF AM UITU TUP TPCT 
air OUa LUNIiNUC UN Wlin 1 nC ICol 




0 J 1 


AA77A? 
UUj jOc 


AAC5A7 
UUjcU J 








1 Mr 




BX 
K J 


■ IC MAT IMrBPHFMT TUP TAIIMTPB lArATIAM 
air NUI INLnCncni 1 nc LUUNICn LULHIiUN 




0 jc 


AAT7AA 
UUj jOh 


AA1 777 

UU 1 J f J 








RkIP 
ONE 




r AAI X 
KUU 1 J 


• AMA fin TPCT TUP Tl AfV CI AC ACAIM IIMIPCC 

, ntlU UU IC9I InC vLULK rLHO AUAiN. UNLCOO... 




ACT 

Oj J 


AAT7AA 
UUj jOO 


1 AAAA1 
1 UhUU I 






C Jww 1 J • 




1 
1 




• ciArir PI AC nin mat cpt aftpb a uaitimc ppbiaa 

iLLULK FLAU VIV nUI 9C 1 ArlCn A WAI 1 INU rCniUli 


b 50 MC 
^ cu no 


0 JH 


UUj Jr u 


UUUH J J 








RP 




TOni A 
1 UU 1 H 






0 J J 


AAT775 
UUj J f c 








LUU 1 J • 












ASA 
0 jO 


UUj J 1 c 


A1 5777 
U 1 c f J f 


003140 


001106 




MAU 




ilBAAl X tl PAAB 
• KUU 1 J , #Lr nUK 


a-nUST LOOP BACK TO BEGININ6 OF TEST IF EEROR COMES NOW 


0 J 1 


AA7AA0 
UU JhUU 


AACA77 
UUjUj f 


177546 










1 It C 
LK3 






O jO 


UU jhV/h 


A75777 
U JC f J f 


000200 


177546 


It- 


R t T 




if5AA 1 rc 


;IS CLOCK FLAG SET ? 




ACQ 
0 JT 


UU JH 1 C 


AAI 77A 

UU 1 Jf H 








RkIP 
DIIC 




1 • 


;N0, UAIT 




AAA 
OOU 


UUjH In 




177546 






n B 




1 ire 

LKd 






AA1 
OO 1 


UWJHCV 


lUJf Jf 


177546 




null 1 J . 


TCTB 
1 a 1 B 




1 rc 

LK3 


;IS CLOCK FLAG SET 




AA9 
OOc 


UU JHCH 


1 nnAA7 








BDI 

BrL 




klAAl X 
NUU 1 J 


:N0 




AAX 
OO J 


AA7/.7A 
UUjhcO 


AAC5A5 








I kir 




B5 
Kc 


.•♦1 TO CLOCK COUNT 




AAA 
OOh 


UU JH JU 


AnSA77 
UU JU J f 


177546 






ri p 




1 It C 
LKo 


.•CLEAR CLOCK IF SET 




AAC 
00 J 


UUJH JH 


AAC5AA 

\JVJCVV 






nuu 1 J • 


I kir 

1 NL 




DA 
KU 


.•♦1 TO TINE COUNT 




AAA 
000 


f\nx/. xfk 
UUjh jO 


AA1 77A 
UU 1 Jf U 








BNE 




MAAI X 

nuu 1 J 


; REPEAT UNTIL R0=0 




AA7 
OO ( 


UU JHHU 


A5A1 A5 
UcU 1 Uc 








CUP 




PI 05 
K 1 , Kc 


;IS 1ST CLOCK COUNT EQUAL TO 2ND CLOCK COUNT? 




OOO 


UUjhhc 


AA1 AAA 
UU 1 hUO 








BEQ 




TAA1 A 
1 UU 1 H 


;YES 




AAO 

007 


nnxLAL. 

UUjhHh 


rtlrti 77 
U I U 1 Jf 


001162 




E40013: 


nov 




R1,$REG1 


;GET RI READY FOR PRINTOUT 




670 


0O3A50 


010237 


001164 






NOV 




R2,SREG2 


a- GET ft2 READY FOR PRINTOUT 




671 


003454 


104004 








ERROR 


4 


.•ERROR. CLOCK FLAG OCCURRED DIFFERENT 





CZKWA>G LINE FREQUENCY CLOCK PROGRAM 
CZKyAG.PIl 10-APR-78 11:05 



672 003456 

673 

674 

675 
676 
677 
678 
679 
680 

681 003460 

682 003462 

683 003466 

684 003474 

685 003502 

686 003510 

687 003516 

688 003522 

689 003530 

690 003534 

691 003S40 

692 003542 

693 003542 

694 003546 

695 003552 

696 003560 

697 003566 

698 003570 

699 003572 

700 003576 

701 003604 
702 

703 
704 
705 
706 

707 003612 

708 003614 

709 003622 

710 003630 

71 1 003634 

712 003642 

713 003650 

714 003654 

715 003660 

716 003662 

717 003662 

718 003666 

719 003672 

720 003700 

721 003706 

722 003710 

723 003712 

724 003716 

725 003724 
726 

727 



000240 



000004 
005037 
012737 
012737 
012737 
012737 
005037 
017737 
013746 
012746 
000002 

012706 
005037 
012777 
032737 
001401 
104005 
005037 
012737 
013777 



000004 
012737 
012737 
005037 
012737 
012737 
013746 
012746 
000002 

012706 
005037 
012777 
032737 
001401 
104005 
005037 
012737 
005077 



001124 
003542 
157546 
003560 
000340 
177546 
175372 
000340 
003542 



001000 
177546 
000100 
000100 



177546 
003612 
012364 



003700 
000340 
001124 
003662 
177146 
000340 
003662 



001000 
177546 
000100 
000100 



177546 
003730 
175170 



001106 
001120 
000004 
000006 

012364 



175340 
177546 



000004 
175306 



000004 
000006 

001106 
001120 



175220 
177546 



000004 
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MACni 30A(1052) 19-APR-78 14:25 
TEST LINE CLOCK REPEATABILITY 



PAGE 15 



SEQ 0018 



NOP 



.•NUMBER OF TIMES IN EQUAL PERIODS 



.SBTTL 
;LINE C 
.-TEST T 
.SET A 
.TO 100 
T0014: 



TEST 



LINE CLOCK REGISTER ADDRESSING 
LOCK REGISTER ADDRESSING TEST 

HAT THE "LKS" REGISTER CAN NOT BE ADDRESSED AS ANYTHING BUT 177546 
THAT IS CL0SE(DIFFERS BY 1 BIT) TO THE LKS REGISTER 
LKS ALSO CHANGES, THEN SIGNAL AN ERROR 



64$: 
R0014: 

10014: 
A0014: 

E0014: 
80014: 



LOCATION 
. IF THE 

SCOPE 

CLR 

NOV 

nov 
nov 
nov 

CLR 

nov 
nov 

NOV 
RTI 

nov 

CLR 

nov 

BIT 
BEQ 
ERROR 
CLR 
NOV 
NOV 



SGDDAT 

#R0014,$LPADR 
#157546, SGDADR 
fA0014,4 
#340,6 

LKS 

SSGDADR. 
PR7.-(SP) 
#64$. -(SP) 



#1000,SP 

LKS 

#100.a$GDADR 
#100, LKS 
B0014 



INITIALIZE THE L00P6ACK ADDRESS IN CASE OF AN ERROR 
SAnE AS "LKS" ADDRESS EXCEPT WITH BIT 13 CLEAR 
SETUP VECTOR IN CASE IT IS NONEXISTANT 



SAVE .-SAVE CONTENTS 
;;PUT NEW PS ON STACK 
;;PUT NEU PC ON STACK 
POP NEU PC AND PS 



; SETUP THE STACK 

;SET THE "CLOSE* 
:NAKE SURE THAT 



ADDRESS TO = 100 
'LKS" WAS NOT AFFECTED 



LKS 

#T0015 
SAVE, 



;IT AFFECTED "LKS" — ERROR 



,4 

a$GDADR .-RESTORE CONTENTS 



.SBTTL LINE CLOCK REGISTER ADDRESSING TEST 
.LINE CLOCK REGISTER ADDRESSING TEST 
T0015: 



64$: 
R0015: 

10015: 
A0015: 

E0015: 
B0015: 



SCOPE 
NOV 
NOV 
CLR 
NOV 
NOV 

nov 

NOV 
RTI 

NOV 

CLR 
NOV 
BIT 
BEQ 

ERROR 5 
CLR 
NOV 
CLR 



#A0015,4 

#340,6 

$GDDAT 

#R0015,$LPADR 
#1 77146, $CDADR 
PR7,-(SP) 
#64$, -(SP) 



#1000. SP 

LKS 

#100,a$GDADR 
#100, LKS 
B0015 



LKS 

#10016 
a$G0A0R 



.'SETUP VECTOR IN CASE IT IS NONEXISTANT 



.-INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 
;SANE AS "LKS" ADDRESS EXCEPT WITH BIT 8 CLEAR 
;;PUT NEW PS ON STACK 
;;PUT NEW PC ON STACK 
;: POP NEW PC AND PS 

.SETUP THE STACK 

.•SET THE "CLOSE" ADDRESS TO = 100 
;NAKE SURE THAT "LKS" WAS NOT AFFECTED 

;IT AFFECTED "LKS" — ERROR 



.4 



.•CLEAR OUT THE "CLOSE" ADDRESS 



CZKUA-G 


LINE 


FREQUENCY 


CLOCK 


CZKWAG. 


Pll 


10-APR-78 


11:05 


728 








729 








730 








731 


003730 


000004 




732 


005732 


012737 


004016 


733 


003740 


012737 


000340 


734 


003746 


005037 


001124 


735 


003752 


012737 


004000 


736 


003760 


012737 


1 77446 


737 


003766 


013746 


000340 


738 


003772 


012746 


004000 


739 


003776 


000002 




740 


004000 






741 


004000 


012706 


001000 


742 


004004 


005037 


177546 


743 


004010 


012777 


000100 


744 


004016 


032737 


000100 


745 


004024 


001401 




746 


004026 


104005 




747 


004030 


005037 


177546 


748 


004034 


012737 


004046 


749 


004042 


005077 


175052 


750 








751 








752 








753 








754 








755 


004046 


M M M M A t 

000004 




756 


004050 


012737 


004134 


757 


004056 


012737 


000340 


758 


004064 


005037 


001124 


759 


004070 


012737 


0041 16 


760 


004076 


012737 


1 77556 


761 


004 1 04 


013746 


000340 


762 


0041 10 


012746 


0041 16 


763 


0041 14 


000002 




764 


004116 






765 


0041 16 


012706 


A A 4 AAA 

001000 


766 


004122 


005037 


177546 


767 


00*, '26 


012777 


000100 


768 


0041 34 


032737 


A A A 4 A A 

000100 


769 


004142 


001401 




770 


004144 


104005 




771 


004 1 46 


005037 


1 77546 


772 


004152 


012737 


004164 


773 


004160 


005077 


174734 


774 








775 








776 








777 








778 








779 


004164 


000004 




780 


004166 


012737 


004252 


781 


004174 


012737 


000340 


785 






UU 1 1 c<) 


783 


004206 


012737 


004234 



000004 
000006 

001106 
001120 



175102 
177546 



000004 



000004 
000006 

001106 
001120 



174764 
177546 



000004 



000004 
000006 

001106 



G 2 

HACY11 30A(1052) 19-APR-78 14:25 PAGE 16 
LINE CLOCK REGISTER ADDRESSING TEST 



SEO 0019 



.SBTTL 

.•LINE 

T0016: 



64$: 



LINE CLOCK REGISTER ADDRESSING TEST 
CLOCK REGISTER ADDRESSING TEST 
SCOPE 

nov 

NOV 
CLR 
HOV 
NOV 
NOV 
NOV 
RTI 



«A0016,4 

#340.6 

$GDDAT 

#R0016.$LPADR 
«1 77446, $GDADR 
PR7,-(SP) 
#64$. -(SP) 



:SETUP VECTOR IN CASE IT IS NONEXISTANT 



INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 
SANE AS "LKS" ADDRESS EXCEPT WITH BIT 6 CLEAR 
PUT NEW PS ON STACK 
PUT NEW PC ON STACK 
POP NEW PC AND PS 



R0016: 


NOV 


#1000.SP 


.•SETUP THE STACK 




CLR 


LKS 




10016: 


NOV 


#100,a$GDADR 


.-SET THE "CLOSE" ADDRESS TO = 100 


A0016: 


BIT 


#100, LKS 


:NAKE SURE THAT "LKS" WAS NOT AFFECTED 




BEQ 


B0016 




E0016: 


ERROR 


5 


;IT AFFECTED "LKS" — ERROR 


B0016: 


CLR 


LKS 






NOV 


#T0017 .4 






CLR 


a$GDADR 


.CLEAR OUT THE "CLOSE" ADDRESS 


.SBTTL 


LINE CLOCK REGISTER ADDRESSING TEST 


.•LINE 


CLOCK REGISTER ADDRESSING 


TEST 


T0017: 


SCOPE 








NOV 


#A0017.4 


.-SETUP VECTOR IN CASE IT IS NONEXISTANT 




NOV 


#340,6 






CLR 


$G0DAT 






NOV 


#R0017.$LPA0R 


.•INITIALIZE THE LOOPBACK ADDRESS IN CASE 




NOV 


#177556. $GOADR 


;SAPE AS "LKS" ADDRESS EXCEPT WITH BIT 3 




NOV 


PR7.-(SP) 


:;PUT NEW PS ON STACK 




NOV 


#64$. -(SP) 


;;PUT NEW PC ON STACK 




RTI 




;; POP NEW PC AND PS 


64$: 








R0017: 


NOV 


#1000, SP 


.•SETUP THE STACK 




CLR 


LKS 




10017: 


NOV 


#100,a$G0ADR 


.•SET THE "CLOSE" ADDRESS TO = 100 


A0017: 


BIT 


#100, LKS 


;NAKE SURE THAT "LKS" WAS NOT AFFECTED 




BEQ 


80017 




E0017: 


ERROR 


5 


;IT AFFECTED "LKS" — ERROR 


B0017: 


CLR 


LKS 






NOV 


#T0020 ,4 






CLR 


a$GDADR 


.•CLEAR OUT THE "CLOSE" ADDRESS 



SET 



.SBTTL LINE CLOCK REGISTER ADDRESSING TEST 
.LINE CLOCK REGISTER ADDRESSING TEST 
T0020: SCOPE 

NOV #A0020,4 .-SETUP VECTOR IN CASE IT IS NONEXISTANT 

NOV #340.6 
CLR $6DDAT 

NOV #R0020,$LPADR .-INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 



CZKWA-G LINE FREQUENCY CLOCK PROGRAM 
CZKUAG.PII 10-APR-78 11:05 



784 0042U 

785 004222 

786 004226 

787 004232 

788 004234 

789 004234 

790 004240 

791 004244 

792 004252 

793 004260 

794 004262 

795 004264 

796 004270 

797 004276 
798 

799 
800 
801 
802 

803 004302 

804 004304 

805 004312 

806 004320 

807 004324 

808 004332 

809 004340 

810 004344 

811 004350 

812 004352 

813 004352 

814 004356 
8o 004362 

816 004370 

817 004376 

818 004400 

819 004402 

820 004406 

821 004414 
822 

823 
824 
825 
826 
827 

828 004420 

829 004422 

830 004426 

831 004434 

832 004442 

833 004450 

834 004456 

835 004464 

836 004470 

837 004474 

838 004476 

839 004476 



012737 
013746 
012746 
000002 

012706 
005037 
012777 
032737 
001401 
104005 
005037 
012737 
005077 



000004 
012737 
012737 
005037 
012737 
012737 
013746 
012746 
000002 

012706 
005037 
012777 
032737 
001401 
104005 
005037 
012737 
005077 



0000C4 
000137 
012737 
012737 
012737 
012737 
012737 
013746 
012746 
000002 



177566 
000340 
004234 



001000 
177546 
000100 
000100 



177546 
004302 
174616 



004370 
000340 
001124 
004352 
177746 
000340 
004352 



001000 
177546 
000100 
000100 



177546 
004420 
174500 



004534 
006266 
000340 
000100 
004476 
177547 
000340 
004476 



001120 



174646 
177546 



000004 



000004 
000006 

001106 
001120 



174530 
177546 



000004 



000004 
000006 
001124 
001106 
001120 



H 2 

HACY11 30A(1052) 19-APR-78 14:25 PAGE 17 
LINE CLOCK REGISTER ADDRESSING TEST 



SEC 





NOV 




«1 77566, SGDADR 


;SAME AS "LKS" ADDRESS EXCEPT yiTH BIT 4 




MOV 




PR7.-(SP) 


::PUT NEW PS ON STACK 




nov 




#64$. -(SP) 


::PUT NEW PC ON STACK 




RTI 






:: POP NEW PC AND PS 


64S: 










R0020: 


MOV 




#1000. SP 


.■SETUP THE STACK 




CLR 




LKS 




10020: 


MOV 




#100,a$GDADR 


.-SET THE "CLOSE" ADDRESS TO = 100 


A0020: 


BIT 




#100. LKS 


.•MAKE SURE THAT "LKS" WAS NOT AFFECTED 




RFO 




DwwC V 




E0020: 


ERROR 


5 




;IT AFFECTED "LKS" — ERROR 


B0020: 


CLR 




LKS 






MOV 




#T0021 .4 






CLR 




a$GDADR 


; CLEAR OUT THE "CLOSE" ADDRESS 


.SBTTL 


LINE 


CLOCK REGISTER ADDRESSING TFST 


:LINE 


CLOCK REGISTER ADDRESSING 


TEST 


T0021: 


SCOPE 










NOV 




#A0021 .4 


.■SETUP VECTOR IN CASE IT IS NONEXISTANT 




MOV 




#340.6 




CLR 




$GDDAT 






MOV 




#R0021.$LPADR 


: INITIALIZE THE LOOPBACK ADDRESS IN CASE 




MOV 




#1 77746. $GDADR 


.-SAME AS "LKS" ADDRESS EXCEPT WITH BIT 7 




MOV 




PR7.-{SP) 


::PUT NEW PS ON STACK 




MOV 




#64$. -(SP) 


::PUT NEW PC ON STACK 




RTI 






;; POP NEW PC AND PS 


64$: 










R0021 : 


MOV 




#1000,SP 


.•SETUP THE STACK 




CLR 




LKS 




10021 : 


MOV 




#100,a$GDADR 


;SET THE "CLOSE" ADDRESS TO = 100 


A0021 : 


BIT 




#100, LKS 


.MAKE SURE THAT "LKS" UAS NOT AFFECTED 




BEQ 




B0021 




E0021: 


ERROR 


5 




;IT AFFECTED "LKS" — ERROR 


B0021 : 


CLR 




LKS 






HOV 




#T0022 ,4 






CLR 




a$GDADR 


.•CLEAR OUT THE "CLOSE" ADDRESS 



SET 



•SBTTL LINE CLOCK REGISTER HIGH BYTE TEST 
.■LINE CLOCK REGISTER HIGH BYTE TEST 

.-MAKE SURE THE LKS REGISTER LOU BYTE RESPONDS TO THE HIGH BYTES ADDRESS 
T0022: SCOPE 



012706 001000 



64$: 
R0022: 



JHP 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 

MOV 



T0023 

#TRAP0.a#4 
#340. a#6 
#100,$GDDAT 
#R0022.$LPADR 
#177547. $GDADR 
PR7.-(SP) 
#64$, -(SP) 



#1000. SP 



.•SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 
:N0 INTERRUPTS WHILE PRINTING FATAL MESSAGE 

.•INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 
.-HIGH BYTE OF THE LKS REGISTER 
:;PUT NEW PS ON STACK 
::PUT NEW PC ON STACK 
:; POP NEW PC AND PS 

.•SETUP THE STACK 



I 2 





1 INF 


F RFQIIFNr V 


CLOCK PROGRAM 


MACrll 


30A(1052] 


19-APR-78 


C7KUAG 


PI 1 


10-APR-78 


11. AC 




LINE CLOCK REGISTER HIGH BYTE 




00450? 


005037 


\ f r j4o 






CLR 


LKS 






1 1 ?777 


f\f\e\ 1 nn 


1 ^«i4U4 


10022: 


novB 


flOO.aSGOAOR 






03P737 


UUU 1 UU 


1 77C/.A 




BIT 


flOO.LKS 




004522 


001001 

WW 1 WW > 








BNE 


A0022 




004524 


104005 

1 w"t w w 






E0022: 


ERROR 5 






004526 


00S037 
vw jyj J t 


1 




A0022: 


CLR 


LKS 


846 


004532 


000005 

WW Www J 








RESET 




847 
















848 
















849 
















8S0 










.SBTTL 


CLOCK FLAG BIT TEST 


851 










.CLOCK 


Fl AG RI T 

r I. nw Oil 


TF^T 


852 


004534 


000004 

w w w w w~ 






T0023: 


SCOPF 




853 


004536 


012737 

w 1 C f J 1 


UUOcOO 


nnnnn/. 




MOV 


fTRAPO a*4 


854 


004544 


012737 








MOV 


#340 af6 

^J~W «w 


855 


004552 


012737 




UU 1 1 CH 




NOV 


#200 tGDDAT 


856 


004560 


012737 




noi 1 nA 

UU 1 1 uo 




MOV 


#R0023,SLPADR 


857 


004566 


005037 






R0023: 


CLR 


LKS 


858 


004572 


005003 

WW -/ W w J 








CLR 


R3 


859 


004574 


105737 


1 n^Lt>. 




A0023: 


TSTB 


LKS 


860 


004600 


100404 








BMI 


B0023 


861 


004602 


005203 

WW J J 








INC 


R3 


862 


004604 


001373 








BNE 


A0023 


863 


004606 


104001 






E0023: 


ERROR 1 




864 


004610 


0004 1 0 

WWW" 1 w 








BR 


T0024 


865 


004612 








B0023: 






866 


004612 


012737 


wUUcUU 


1 f f JHO 


10023: 


MOV 


#200, LKS 


867 


004620 


023737 


1 1 1 JHO 


Uw 1 1 cH 




CMP 


LKS.SGDDAT 


868 


004626 


001401 








BEQ 


T0024 


869 


004630 


104001 






El 0023: 


ERROR 1 




870 
















871 
















872 
















873 










.SBTTL 


INTERRUPT TEST 


874 


004632 


000004 

w w w w w~ 






T0024: 


SCOPE 




875 


004634 


012737 




00000^ 




MOV 


#TRAP0,a#4 


876 


004642 


012737 


nnn'^4n 


onoooA 
uuuuuo 




MOV 


#340. a#6 


877 


004650 


012737 


onfl?nn 


001 1 ?4 

UU 1 1 CH 




MOV 


#200,$G0DAT 


878 


004656 


012737 


UUHO ' o 


001 10A 
UU 1 1 uo 




MOV 


#R0024,$LPADR 


879 


004664 


012737 




0001 on 

UUU 1 uu 




MOV 


#E0024.100 


880 


004672 


005037 


1 77S4A 






CLR 


LKS 


881 


004676 








R0024: 






882 


004676 


013746 








NOV 


PR7.-(SP) 


883 


004702 


012746 








NOV 


#64$. -(SP) 


884 


004706 


000002 








RTl 


885 


004710 








64S: 






886 


004710 


012737 


000300 


1 7754A 




NOV 


#300. LKS 


887 


004716 


005227 


ononon 




A0024: 


INC 


#0 


888 


004722 


001375 








BNE 


A0024 


889 


004724 


OOOOOS 

w w w w w ^ 








RESET 




890 


004726 


023737 


001 1 ?i 


1 77S4A 




CNP 


SGDDAT.LKS 


891 


004734 


001401 








BEQ 


T0025 


892 


004736 


104001 






E0024: 


ERROR 1 




893 
















894 
















895 

















14:25 
TEST 



PAGE 18 



SEQ 0021 



;SET THE HIGH BYTE ADDRESS TO = 100 

;NAKE SURE THAT "LKS" LOU BYTE WAS AFFECTED 

.SHOULD HAVE SET BIT 7. ERROR 



; SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 
;N0 INTERRUPTS WHILE PRINTING FATAL NESSAGE 

.INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 

INITIALIZE A COUNTER LOCATION 

IS THE CLOCK FLAG SET? 

IF SO. CONTINUE ON WITH THE TEST 

IF NOT INCREMENT THE COUNTER LOCATION 

AND GO TEST THE CLOCK FLAG AGAIN. UNLESS... 

CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD > 20 MS 



;NOV£ A 1 INTO THE CLOCK FLAG BIT 
.-SHOULD NOT AFFECT THE FLAG BIT 



.■CLOCK FLAG DID NOT CLEAR 



SETUP VECOR IN CASE OF UNFORSEEN PROBLENS 

NO INTERRUPTS WHILE PRINTING FATAL NESSAGE 

HAVE GOOD DATA INFO READY FOR TYPEOUT IN CASE OF AN ERR 

INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 

:ALLOW CLOCK INTERRUPTS 

;PUT NEW PS ON STACK 
.-PUT NEW PC ON STACK 
: POP NEW PC AND PS 



WAIT FOR 20> NS 

LOOP BACK IF NOT DONE WAITING 

RESET SHOULD CLEAR INTERRUPT ENABLE 

AND LEAVE THE CLOCK FLAG SET 

GO ON TO THE NEXT TEST IF IT DID 

RESET SET INTERRUPT ENABLE OR CLEARED CLOCK FLAG 



CZKUA-G LINE FREQUENCY CLOCK PROGRAH HACY11 50A{1052) 



J 2 
19-APR-78 U 



25 PAGE 19 



CZKUAG. 


P1 1 


IO-APR-78 


11 :05 




NO SACK 


TIMEOUT 


TEST 


896 










.S8TTL 


NO SACK 


TINEOUT TEST 


897 










;N0 SACK TIMEOUT TEST 


898 


004740 


000004 






TO025: 


SCOPE 






899 


004742 


012737 


006266 


A A A A A / 

000004 




NOV 




#TRAP0,9#4 


900 


004750 


012737 


000340 


A A A A A M 

000006 




NOV 




#340, a#6 


901 


004756 


012737 


A A A V A A 

000300 


001124 




NOV 




#300,SGDDAT 


902 


004764 


012737 


A A ^ A A / 

005006 


001106 




NOV 




#R0025.»LPADR 


903 


004772 


012737 


A A A V ^ A 

000340 


A A A 4 A ^ 

000102 




NOV 




M T y A 4 A*) 

#340.102 


90A 


MAP AAA 

005000 


012737 


A A P A ^ A 

005070 


AAA4 AA 

000100 




NOV 




M^AA^C 4AA 

#C0025,100 


905 


A A r A A y 

005006 


005037 


177546 




A A A C 

P0025 : 


CLR 




LKS 


906 


005012 


013746 


A A A V / A 

000340 






NOV 




A A T / f A \ 

PR7,-(SP) 


907 


005016 


012746 


005024 






NOV 




M^/tf /cn\ 

#64»,-(SP) 


908 


005022 


A A A A A *t 

000002 








RTI 






909 


005024 








64»: 








910 


005024 


AAf AA9 

005003 








ft A 

CLR 




R3 


911 


A Ar A*^ y 

005026 


4 Ar ^7 

105737 


177546 




A AA*) C .. 

A0025 : 


TSTB 




LKS 


912 


005032 


100404 








BNI 




D AA'^C 

B0025 


913 


A A C A 7 / 

005034 


A A r ^ AT 

005203 








INC 






91A 


A Ar A Y y 

005036 


A A 4 T ^ V 

001373 








ONE 




A AA ^ C 

A0025 


915 


A Ar A / A 

005040 


104001 


. 




r A A T C - 

E0025: 


ERROR 


1 




916 


A Ar A / ^ 

005042 


A A A / 4 ^ 

00041 7 








BR 




10026 


n 4 ^ 

917 


005044 








B0025: 








918 


A A PA// 

005044 


A Af A y y 

005046 








CLR 




-(SP) 


919 


005046 


A 4 y M 

012746 


A AC A r / 

005054 






NOV 




#1 »,-(SP) 


920 


A A r A c ^ 

005052 


A AA A A'^ 

000002 








RTI 






921 


005054 


A 4 7 T ^ 

012737 


A A A 4 A A 

000100 


1 77546 


1 9 : 


NOV 




Jl 4 A A 1 V C 

#100. LKS 


922 


AAf A^ ^ 

005062 


A AAA A 4 

000001 














923 


A A r Ay / 

005064 


4 A / A 'A y 

104006 








C D DAD 


6 




92A 


AAC Z 

005066 


AAA/ AC 

000405 








Q A 
OH 




T0026 


925 


AAC A'YA 

005070 


022737 


A A A T A A 

000300 


1 77546 


r aa^c ■ 

C002 J ; 


CBP 




#300. LKS 


926 


AA f A ^y 

005076 


AA4 / A4 

001401 








AC A 

BEQ 




T0026 


927 


AAC 1 A A 


1 A/ AA1 

104001 






C OAAOC . 

t2002d: 


e A AAA 


1 




928 


















929 


















930 


















931 










CO T T 1 


AC C C T 


TEST 


932 










.'RESET 


TC C T 

TcST 






933 


AAC 4 A ^ 

005102 


A A AAA y 

000004 






T0026: 


C ^ AftC 

SCOPE 






934 


A Af 4 A / 

005104 


A 4 ^ "T T ^ 

012737 


AA^ A 

006266 


A A AAA / 

000004 




NOV 




#TRAP0,ai4 


935 


AAf 4 1^ 

005112 


012737 


AAA 9/ A 

000340 


A A AAA^ 

000006 




NOV 




#340. a#6 


936 


AAC 4 A 

005120 


012737 


A A A ^ A A 

000200 


A A 4 4^/ 

001124 




NOV 




#200.tGDDAT 


937 


A Ar 4 ^ y 

005126 


012737 


A AC 4 Z ^ 

005162 


A A 4 4 A^ 

001 106 




NOV 




#R0O26.tLPA0R 


938 


005134 


013746 


AAA V / A 

000340 






NOV 




PR7.-(SP) 


939 


AAC 1 / A 

005140 


012746 


AAC 1 / Z 

005146 






NOV 




#64S.-(SP) 


9A0 


AAC 1 / / 

005144 


AAAAA1 

000002 








RTI 




9A1 


AAC 1 / 

005146 








64* : 








9A2 


A A C i / ^ 

005146 


012737 


AAC ^ ^ A 

00522P 


A A A 4 A A 

000100 




NOV 




#E0026.100 


9h3 


AAC1 C/ 

005154 


A4 ^7X7 

012737 


AAA1 / A 

000140 


AAA 4 A') 

000102 




nuv 




#140.102 


9AA 


005162 


AAC AT7 

005037 


1 f r546 




R0026: 


CLR 




LKS 


9A5 


AAC 1 Z ^ 

005166 


A< T7A^ 

012706 


AAi AAA 

001000 






NOV 




#1000.SP 


9A6 


AAC '1 7^ 

005172 


012737 


A A A 4 AA 

000100 


1 77546 




NOV 




#100. LKS 


OA 7 




UUjcc f 


uuuuuu 




A0026: 


INC 




#0 


948 


005204 


001375 








BNE 




A0026 


949 


005206 


000005 






10026: 


RESET 






950 


005210 


023737 


177546 


001124 




CHP 




LKS.tGDDAT 


951 


005216 


001401 








BEQ 




T0027 



SEQ 0022 



SETUP VECOR IN CASE OF UNFORSEEN PROBLENS 

NO INTERRUPTS WHILE PRINTING FATAL NESSAGE 

HAVE GOOD DATA INFO READY FOR TVPEOUT IN CASE OF AN ERR 

INITIALIZE THE L00P8ACK ADDRESS IN CASE OF AN ERROR 

NO INTERRUPTS AFTER THE FIRST ONE 



;PUT NEW PS ON STACK 
;PUT NEW PC ON STACK 
; POP NEW PC AND PS 

INITIALIZE A COUNTER LOCATION 

IS THE CLOCK FLAG SET? 

IF SO. CONTINUE ON WITH THE TEST 

IF NOT INCREMENT THE COUNTER LOCATION 

AND GO TEST THE CLOCK FLAG AGAIN. UNLESS... 

CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD > 20 NS 



DROP CPU PRIORITY LEVEL 
SET RETURN 'PC* FRON THE RTI 
RETURN TO NEXT INSTRUCTION 
ENABLE CLOCK INTERRUPTS 

THE ONLY WAY TO LEAVE HERE WITHOUT ERROR IS TO INTERRUP 
IF IT ERROR IS HERE ITS BECAUSE OF A "NO-SACK" TINEOUT 



.-FIND OUT WHAT THE INTERRUPT DID TO THE CLOCK STATUS REG 
:IT CLEARED THE INTERRUPT ENABLE OR THE FLAG BIT 



SETUP VECOR IN CASE OF UNFORSEEN PROBLENS 

NO INTERRUPTS WHILE PRINTING FATAL NESSAGE 

HAVE GOOD DATA INFO READY FOR TYPEOUT IN CASE OF AN ERR 

INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 

:PUT NEW PS ON STACK 

.-PUT NEW PC ON STACK 

; POP NEW PC AND PS 



.•SETUP STATUS FOR AFTER THE INTERRUPT 



.•SETUP THE STACK 

.-SET INTERRUPT ENABLE BIT NOW 

;WAIT FOR CLOCK FLAG TO SET 

.•RESET SHOULD NOT CLEAR THE FLAG 
.-FIND OUT IF ID DIT DID OR NOT 





1 f ftlC 
L INC 


r DC f\i ic ftir V 
r KcUUcNv. T 


r 1 nr ^ o 


onro AM 


CZKUAG. 


P11 


10-APR-78 


11 :05 




952 


005220 


104001 






953 










954 










955 










956 










957 










958 










959 


005222 


000004 






960 


005224 


012737 


006266 


000004 


961 


005232 


012737 


000340 


000006 


962 


005240 


012737 


000200 


001124 


963 


005246 


012737 


005266 


001106 


96A 


005254 


005037 


000102 




965 


005260 


012737 


005350 


000100 


966 


005266 


005037 


177546 




967 


005272 


013746 


000340 




968 


005276 


012746 


005304 




969 


005302 


000002 






970 


005304 








971 


005304 


012706 


001000 




972 


005310 


005037 


001234 




973 


005314 


005237 


001234 




974 


005320 


001375 






975 


005322 


012737 


000300 


177546 


976 


005330 


012737 


000200 


177546 


977 


005336 


023737 


177546 


001124 


978 


005344 


001401 






979 


005346 


104001 






980 










981 










982 










983 










984 










985 


005350 


000004 






986 


005352 


012737 


006266 


000004 


987 


005360 


012737 


000340 


000006 


988 


005366 


005037 


177546 




989 


005372 


012737 


000100 


001124 


990 


005400 


012737 


005406 


001106 


991 


005406 


012737 


005454 


000100 


992 


00S4U 


005037 


000102 




993 


005420 


005046 






994 


005422 


012746 


005430 




995 


005426 


000002 






996 


005430 


012706 


001000 




997 


005434 


005037 


177546 




998 


005440 


105037 


001 23^ 




999 


005444 


012737 


000100 


177546 


100C 


005452 


000001 






1001 


005454 


012737 


005506 


000100 


1002 


005462 


005046 






1003 


005464 


012746 


005472 




1004 


005470 


000002 






1005 


005472 


105237 


001234 




1006 


005476 


001375 






1007 


005500 


005037 


177546 





HACY11 30A(1052) 
RESET TEST 

E0026: ERROR 1 



K 2 

19-APR-78 14:25 PAGE 20 



SEO 0023 



.•RESET DID NOT INITIALIZE THE LKS WORD CORRECTLY 



.SBTTL 
.•CLOCK 
;NAKE 
T0027 



CLOCK FLAG BIT TEST 
FLAG BIT TEST 
SURE IT DOESNT CLEAR UHEN 



R0027: 

64S: 
A0027: 



E0027: 



.SBTTL 
.-SEE IF 
T0030: 



RC030: 



IS: 



A0030: 



B0030: 



SCOPE 




MOW 


fTRAPn a#4 


MOU 

n\j w 


#340 ajf6 

w W g WW \J 


MOV 


#200 iGDDAT 


nov 


#R0027 SLPADR 


ir u n 


102 


MOV 


#T0030 100 


CLR 


LKS 


NOV 


PR7.-(SP) 


NOV 


«64S,-(SP) 


RTl 




MOV 


#1000, SP 


CLR 


WORD 


INC 


WORD 


BNE 


A0027 


NOV 


#300, LKS 


NOV 


#200, LKS 


CNP 


LKS.SGODAT 


BEQ 


T0030 


ERROR 


1 



ERR 



YOU TRY TO SET IT VIA A 'NOV INSTRUCTION 

SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 

NO INTERRUPTS WHILE PRINTING FATAL MESSAGE 

HAVE GOOD DATA INFO READY FOR TYPEOUT IN CASE OF AN 

INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 



:PUT NEW PS ON STACK 
:PUT NEW PC ON STACK 
: POP NEW PC AND PS 

SETUP THE STACK 

SETUP A COUNTER LOCATION TO = 0 

WASTE TINE LOOPING UNTIL THE COUNTER REACHES 0 

SET INTERRUPT ENABLE AND TRY TO SET THE CLOCK FLAG 

TRY TO SET IT AGAIN 

DID THE CLOCK FLAG STAY SET? 

IF NOT 60 ON TO THE NEXT TEST 

ERROR - NOVED A '1' INTO THE CLOCK FLAG BIT AND IT STAY 



CLOCK FLAG AFTER INTERRUPT TEST 
AN INTERRUPT CLEARS THE CLOCK FLAG 



SCOPE 






NOV 


#TRAP0,a«4 


-SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 


NOV 


#340, a«6 


■NO INTERRUPTS WHILE PRINTING FATAL NESSAGF 


CLR 


LKS 


■NO CLOCK INTERRUPTS BEFORE WE ARE READY 


NOV 


#100,$GODAT 


■HAVE GOOD DATA INFO READY FOR TYPEOUT IN CASE OF AN ERR 


NOV 


#R0030, SLPADR 


■INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 


NOV 


#A0030,100 


-SETUP CLOCK INTERRUPT VECTOR 


CLR 


102 


■PRIORITY LEVEL WILL ALLOW FURTHER INTERRUPTS 


CLR 


-<SP) 


-DROP CPU PRIORITY LEVEL 
SET RETURN 'PC FRON THE RTI 


NOV 


#1S,-(SP) 


RTI 




■RETURN TO NEXT INSTRUCTION 


NOV 


#1000,SP 


SETUP THE STACK 


CLR 


LKS 




CLRB 


WORD 


•CLEAR OUT A COUNTER LOCATION 


NOV 


#100, LKS 


■ENABLE CLOCK INTERRUPTS NOW 


WAIT 




WAIT FOR AN INTERRUPT 


NOV 


fE0030,100 


■ERROR IF WE INTERRUPT AGAIN 


CLR 


-(SP) 


■DROP CPU PRIORITY LEVEL 
■SET RETURN 'PC FRON THE RTI 


NOV 


#80030, -(SP) 


RTI 


■RETURN TO NEXT INSTRUCTION 


INCB 


WORD '. 


•DO A NOTHING LOOP FOR A VERY SHORT PERIOD OF TINE 


BNE 


B0030 


WE SHOULD INCRENENT TO 0 LONG BEFORE AN INTERRUPT CONES 


CLR 


LKS 





CZKUA-G LINE FREQUENCY CLOCK PROGRAM 
CZKUAG.PII 10-APR-78 11:05 



1 AAQ 


AACCA/ 

005 50h 


AAA/ Al 

OOOhOI 






1 /\i\Q 

1 uov 


AACCAZ. 

003)06 


i A/ AAi 
1 Oh 001 






lUlO 










1 01 1 










1 A1 O 










101 3 










1 A1 / 

1 OiH 










1 A1 C 

1 01 J 


AAC^ 1 A 

005)1 0 


AAAAA/. 

OOOOOh 






1 A1 
1 OlO 


0055l£ 


A1 2777 
\J\CI Jf 


AAA9AA 

OOOcOO 


AAAAAA 

OOOOOh 


1 Al 7 
1 0 1 r 


0055CO 


A1 5777 
OlCf Jf 


AAn7A A 
OOU3hO 


AAAAAA 
OOUUOO 


1 A1 B 

1 0 1 o 


AACC^A 

0055eO 


Al 3777 
0 1 Cf 3' 


AACC7A 
0033 JH 


AAI 1 AA 
00 1 1 00 


1 Al Q 
1 0 1 T 


AA5^7/. 

00553H 


AA5A77 
00303^ 


1 77««AA 
1 f f 3H0 




1 ftOA 


003 jhO 


AACAA7 
003003 






1 Oc 1 


003 JHc 


1 A^777 
1 U3 f jf 


1 77^AA 
1 f 1 jHO 




lUcc 


0033hO 


1 AA^AA 
1 OOhOh 








003330 


AAC3A7 
UU3cU3 






1 OcH 


00333c 


AA1 777 

OU 1 3 f 3 








00333H 


1 AAAA1 
1 UhUU I 






1 rt3A 
1 UcO 


003330 


AAAZ.71 
000*»3 1 






1 A37 
1 Oc r 


AACCAA 
UU330U 








1 Oco 


AACCAA 
UU330U 


Al 37AA 
U 1 c r UO 


AAI AAA 
UU 1 UUU 




1 A50 


00330'« 


A1 77/.A 
0 1 3f HO 


AAA7AA 
0003HU 




1 U30 


AA^^7A 


Al 57iA 
U 1 c r HO 


AAS57A 
UU J J f o 




1 ATI 


AASS7A 
UU33f •• 


AAAAA 3 
UUUUUc 






1 rtX5 
1 VJC 


AACi;7A 
0033rO 








1 ftXT 

1 \Jjj 


UU3 jrO 


Al 3777 
U 1 c 1 Jf 


AACCC/, 
UU J J jH 


AAA1 A A 

UUU 1 UU 


1 

1 U JH 


AA^AAi 
UU30UH 


Al 3777 
U 1 C ' J ' 


AAA1 AA 

UUU 1 UU 


1 775AA 

1 1 1 JHO 


1 AT^ 

1 \ljJ 


AA^A1 3 
UU30 1 c 


AACAA7 






1 ATA 


AA^AIi 


1 AS777 
1 U3 r Jf 


1 77SAA 
1 1 1 jHO 




1 nT7 


AA5A3A 


1 AAAAA 






1 U 30 


UU Jucc 


AA53A7 

UU JCU J 






IflTQ 


AACA3A 
0U30CH 


AAI 777 
UU 1 J r J 








V/w30cO 


lAAAAl 
1 UHUU 1 






1 UH 1 


AACATA 


AAA AAA 
UUUHUH 






I U*»C 


Uw JO JC 








1 A/.T 
1 Oh J 


UU303C 


AAA3AA 
UUUcHU 






1 (\LL 
1 UHH 


UU J03H 


AAA3AA 
UUUcHU 








HA^ATA 
v/U JO JO 


AAAAA1 
UUUHU 1 








AASAAA 
UU jOHU 


1 AAAA7 

i UHUU J 






mi 7 










1 Una 






























1 nsi 

1 1 










1 u jc 


AA^AAP 
UU301C 


AAAAA/ 






IfiST 


uu johm 


A^ 37T7 

u 1 c f Jf 


AAA3AA 
UUOcOO 


AAAAAA 


1 nsA 

1 U JH 


uu JO jc 


Al 3777 
u 1 c f J f 


0AA7AA 
UUU jH I 


AAAAAA 
uuuuuo 


inss 


AASAAA 

UU JOOU 


01 37X7 
u 1 c f J f 


AA5AAA 

UU3000 


AAI 1 AA 
UU 1 1 UO 




UU JOOO 


A0S0T7 
UU jU J f 


1 775AA 

Iff JHO 




1057 

1 V ^ r 




005005 






1058 


00567A 


105737 


177546 




1059 


005700 


100AOA 






1060 


005702 


005203 






1061 


005 70A 


001573 






1062 


005706 


10A001 






1063 


005710 


000433 







L 2 

nACrll 30A(1052) 19-APR-78 14:25 
CLOCK FLAG AFTER INTERRUPT TEST 
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SEQ 0024 



E0030: 



.SBTTL 
.•TEST 
T0031 : 



BR 

ERROR 1 



T0031 



.•INTERRUPT DID NOT CLEAR THE CLOCK FLAG 



NO INTERRUT AT PRIORITY 7 TEST 
THAT CLOCK UUL NOT INTERRUPT WITH PROCESSR AT PRIORITY 7 



R0031 : 
A0031 : 

E0031 : 
B0031 : 

64S: 

C0031 : 

El 0031 
D0031 : 



E20031: ERROR 3 









MAU 

nu V 


fTRAPO aJA 


^FTiip VFrnp TN n^F of iimfop^ffn ppori fm^ 


MAU 

nuv 


f7AA airA 

VjHU.tfVO 


Un lUTFRPIlPT^ UUII F PPIMTTM^ FATAI MF^^A^^F 


NOV 


#R0031,$LPADR 


SETUP LOOPBACK ADDRESS IN CASE OF AN ERROR 


CLR 


LKS 




n R 


R5 


INITIAL I7F A COUNTFR lOCATION 


T^TR 


L K 4 


IS THF ClOCK FLAG SFT'> 


RHI 

Dn A 


R0031 


IF SO TDNTINUF ON UITH THF TFST 


IMC 


R3 


If NOT INCREMENT THE COUNTER LOCATION 


RMF 


A0031 


AND GO TEST THE CLOCK FLAG AGAIN UNLESS 


FRROR 

b n nun 


1 


riOCK FLAG DID NOT SFT AFTFR A UAITINC PFRIOD 

V k 1^ r ir A 1/ nw i *7b ■ ni i l n n wn a ■ a nw r t. n a wit 


RR 

on 


T0052 




NOV 


#1000, SP 


■INITIALIZE THE STACK POINTER 


NOV 


PR7,-(SP) 


■:PUT NEW PS ON STACK 


NOV 


#64S -(SP) 


■*PUT NEU PC ON STACK 


RTI 




' - POP NEU PC AND PS 

1 0 r W" nW" ■ k nnv ■ w 


NOV 


#E0031.100 


;SET UP VECTOR RETURN 


NOV 


#100. LKS 


; ENABLE INTERRUPT 


CLR 


R3 


; INITIALIZE A COUNTER LOCATION 


TSTB 


LKS 


.IS THE CLOCK FLAG SET? 


BNI 


D0031 


.IF SO, CONTINUE ON yiTH THE TEST 


INC 


R3 


;IF NOT INCREMENT THE COUNTER LOCATION 


BNE 


C0031 


;AND GO TEST THE CLOCK FLAG AGAIN. UNLESS... 


ERROR 


1 


;CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD 


BR 


T0032 




NOP 






NOP 




.-GIVE CLOCK EXTRA TINE TO INTERRUPT 


BR 


T0032 





> 20 MS 



> 20 MS 



:ERROR. CLOCK INTERRUPTED WITHOUT HAVING PRIORITY 



.SBTTL CC PUSH TEST FOR CLOCK INTERRUPTS 

;TEST THAT CLOCK INTERRUPT PUSHES CONDITION CODES ONTO STACK 
T0032: SCOPE 





NOV 


#TRAP0,a#4 


SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 




NOV 


#340, a#6 


NO INTERRUPTS WHILE PRINTING FATAL MESSAGE 




NOV 


#R0032,$LPADR 


•SETUP LOOPBACK ADDRESS IN CASE OF AN ERROR 


R0032: 


CLR 


LKS 






CLR 


R3 


INITIALIZE A COUNTER LOCATION 


A0032: 


TSTB 


LKS 


IS THE CLOCK FLAG SET? 




BNI 


B0032 


•IF SO, CONTINUE ON WITH THE TEST 




INC 


R3 


■IF NOT INCREMENT THE COUNTER LOCATION 




BNE 


A0032 


AND GO TEST THE CLOCK FLAG AGAIN. UNLESS... 


E0032: 


ERROR 


1 


CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD 




BR 


T0033 





> 20 MS 



CZKUA-G I INE FREQUENCY CLOCK PROGRAM 
CZIcyAG.PIl lO-APR-78 11:05 



n 2 

HACYII 30A(1052) 19-APR-78 14:25 
CC PUSH TEST FOR CLOCK INTERRUPTS 



PAGE 22 



SEQ 



1064 


005712 








1065 


005712 


012706 


001000 




1066 


005716 


005037 


000776 




1067 


005722 


005037 


000774 




1068 


005726 


012737 


005756 


000100 


1069 


005734 


012737 


000100 


177546 


1070 


005742 


005046 






1071 


005744 


012746 


005752 




1072 


005750 


000002 






1fl7X 
1 Ur J 




UUUc f f 






107A 


005754 


000001 






1075 


005756 


022737 


000017 


000776 


1076 


005764 


001405 






1077 


005766 


012737 


000017 


001124 


1078 


005774 


104007 






■'9 


005776 


000721 






K 

1081 










1082 










1083 










1084 










1085 


006000 


000004 






1086 


006002 


012737 


006266 


000004 


1087 


006010 


012737 


000340 


000006 


1088 


006016 


012737 


006024 


001106 


1089 


006024 


005037 


177546 




1090 


006030 


005003 






1091 


006032 


105737 


1775A6 




1092 


006036 


100404 






1093 


006040 


005203 






1094 


Cr6042 


001373 






109S 


cr ^';.44 


104001 






109r 


(}0*v>'i6 


000432 






109' 


0O60S0 








109« 


006050 


012706 


001000 




1099 


006054 


005037 


000776 




1100 


006060 


005037 


000774 




1101 


006064 


012737 


006114 


000100 


1102 


006072 


012737 


000100 


177546 


1103 


006100 


005046 






1104 


006102 


012746 


006110 




1105 


006106 


000002 






1106 


006110 


000277 






1107 


006112 


000001 






1108 


006114 


022737 


006114 


000774 


1109 


006122 


001404 






1110 


006124 


012737 


0061 U 


001124 


1111 


006132 


104010 






1112 










1113 










1114 










1115 










1116 


006134 


000004 






1117 


006136 


005037 


177546 




1118 


006142 


000005 






1119 











B0032: 



IS: 

C0032: 



NOV 

CLR 
CLR 

nov 
nov 

CLR 

nov 

RTI 

♦ SEC'.SE 
UAIT 

CUP 

BEQ 
NOV 

ERROR 7 
BR 



flOOO.SP 

BUFl 
BUF2 

#C0032.100 
#100. LKS 
-(SP) 
#1$,-(SP) 

VlSEZiSEN 

#17, BUFl 
T0033 

#17,SGDDAT 



T0032 



: INITIALIZE THE STACK POINTER 



SET UP VECTOR RETURN 

ENABLE INTERRUPT 

DROP CPU PRIORITY LEVEL 

SET RETURN 'PC FROM THE RTJ 

RETURN TO NEXT INSTRUCTION 

SET ALL CONDITION CODES 

UAIT FOR INTERRUPT 



; ERROR DID NOT PUSH CORRECT PS ONTO STACK 



.SBTTL 

.TEST 

T0033: 



R0033: 
A0033: 

E0033: 
B0033: 



PC PUSH 
THAT CLOCK 
SCOPE 
NOV 
NOV 
NOV 
CLR 
CLR 
TSTB 
BHI 
INC 
BNE 

ERROR 1 
BR 



TEST FOR CLOCK INTERRUPTS 
INTERRUPT PUSHES THE PROGRAM COUNTER ONTO STACK 



#TRAP0,a#4 

#340,a#6 

fR0033,SLPADR 

LKS 

R3 

LKS 

B0033 

R3 

A0033 
T0034 



#1000,SP 

BUFl 

BUF2 

#C0033,100 
#100, LKS 
-(SP) 
f1».-(SP) 



IS: 

C0033: 
El 0033: 



NOV 
CLR 
CLR 
NOV 
NOV 
CLR 
NOV 
RTI 

♦SEC!SEV!SEZ!SEN 
UAIT 

CNP #C0O33,BUF2 
BEQ T0034 
NOV #C0033,SGDDAT 
ERROR 10 



SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 
NO INTERRUPTS UHILE PRINTING FATAL MESSAGE 
SETUP LOOPBACK ADDRESS IN CASE OF AN ERROR 

INITIALIZE A COUNTER LOCATION 

IS THE CLOCK FLAG SET? 

IF SO, CONTINUE ON UITH THE TEST 

IF NOT INCREMENT THE COUNTER LOCATION 

AND 60 TEST THE CLOCK FLAG AGAIN. UNLESS... 

CLOCK FLAG DID NOT SET AFTER A UAITING PERIOD > 20 MS 



.'INITIALIZE THE STACK POINTER 



SET UP VECTOR RETURN 

ENABLE INTERRUPT 

DROP CPU PRIORITY LEVEL 

SET RETURN 'PC* FROM THE RTI 

RETURN TO NEXT INSTRUCTION 

SET ALL CONDITION CODES 

UAIT FOR INTERRUPT 



.'ERROR, DID NOT PUSH CORRECT PC ONTO STACK 



.SBTTL END OF PASS INDICATING 
T0034; SCOPE 

CLR LKS 

RESET 



.'TURN THE CLOCK OFF 
;TURN EVERYTHING OFF 



N 2 

CZIcyA-6 LINE FREQUENCY CLOCK PROGRAM HACY11 30A(1052) 19-APR-78 U:25 PAGE 23 

CZKWAG.PII lO-APR-78 11:05 END OF PASS INDICATING SEQ 0026 

1120 ..•*».*t..ttt***»..t». 

1121 

1122 .SBTTL END OF PASS ROUTINE 

1123 

112A ;*INCREnENT THE PASS NUMBER (SPASS) 

1125 ;*TYPE "END PASS #XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER) 

1126 .••IF THERES A MONITOR GO TO IT 

1127 .••IF THERE ISN'T JUMP TO T0001 
1128 



1129 


006144 








SEOP: 








1130 


006144 


000004 








SCOPE 






1131 


006146 


005037 


001102 






CLR 


STSTNM 


;ZERO THE TEST NUMBER 


1132 


006152 


005037 


001220 






CLR 


STIMES 


;ZERO THE NUMBER OF ITERATIONS 


1133 


G06156 


005237 


001100 






INC 


SPASS 


; INCREMENT THE PASS NUMBER 


1134 


006162 


042737 


100000 


001100 




BIC 


#100000, SPASS 


;UQN'T ALLOW A NEG. NUMBER 


1135 


0061 70 


005327 








DEC 


(PC)* 


■ ;LOOP? 


1136 


0061 72 


000001 






SEOPCT: 


.WORD 


1 




1137 


006174 


003022 








BGT 


SDOAGN 


• ;YES 


1138 


0061 76 


012737 








MOV 


(PC)*,a(PC)» 


-; RESTORE COUNTER 


1139 


006200 


000001 






SENDCT: 


.WORD 


1 




1U0 


006202 


0061 72 








SEOPCT 






1U1 


006204 


104400 


006246 






TYPE 


.SENDMG 


;;TYPE "END PASS #" 


1142 


006210 


013746 


001 1 00 






MOV 


SPASS. -(SP) 


;;SAVE SPASS FOR TVPEOUT 


1U3 


CC6214 


104404 








TVPDS 




;;G0 TYPE— DECIMAL ASCII WITH SIGN 


1U4 


006216 


104400 


006265 






TYPE 


.SENULL 


;:TYPE A NULL CHARACTER 


1145 


006222 








$GET42: 








1146 


















1147 


006222 


013700 


000042 






MOV 


a«42.R0 


;;GET MONITOR ADDRESS 


1148 


0C6226 


001405 








BEQ 


SDOAGN 


.•.BRANCH IF NO MONITOR 


1149 


006230 


000005 








RESET 




:; CLEAR THE WORLD 


1150 


006232 


004710 






SENDAD: 


JSR 


PC.(RO) 


;;G0 TO MONITOR 


1151 


006234 


000240 








NOP 




;;SAVE ROOM 


1152 


006236 


000240 








NOP 




;;FOR 


1153 


006240 


000240 








NOP 




.•;ACT11 


1154 


006242 








SDOAGN : 








1155 


006242 


000137 


001672 






J MP 


afTOOOl 


..-RETURN 


1156 


006246 


005015 


047105 


020104 


SENDMG: 


.ASCI2 


<15><12>/END PASS #/ 


1157 


006254 


040520 


051523 


021440 










1158 


006262 


000 














1 159 


006263 


377 


377 


000 


SENULL: 


.BYTE 


-1.-1.0 


::NULL CHARACTER STRING 


1 160 


006266 


005046 






TRAPO: 


CLR 


-(SP) 




1161 


006270 


004737 


006612 






JSR 


PC.STVPE 


;PRINTOUT"TRAPPED TO 4 FROM •' 


1162 


006274 


010371 








TRPMES 


.ADDRESS OF THE MESSAGE 


1163 


006276 


011646 








MOV 


(SP).-(SP) 


.GET THE ADDRESS WHERE THE TRAP OCCURED 


1164 


006300 


162716 


000002 






SUB 


#2.(SP) 


.MAKE IT RIGHT 


1165 


006304 


104401 








TYPOC 




.TYPE OUT ADDRESS IN OCTAL 


1166 


006306 


104400 


00123' 






TYPE 


.SCRLF 


;PRINTOUT A CARRIAGE RETURN-LINE FEED 


1167 


006312 


005046 








CLR 


-(SP) 




1168 


006314 


004737 


006612 






JSR 


PC.STYPE 


.PRINTOUT RESTARTING MESSAGE 


1169 


006320 


010432 








TRPM2S 


.ADDRESS OF RESTART MESSAGE 


1170 


006322 


000240 








NOP 






1171 


006324 


000240 








NOP 






1172 


006326 


000240 








NOP 






1173 


006330 


000240 








NOP 






1174 


006332 


000005 








RESET 






1175 


006334 


000137 


00U50 






JMP 


START 





006340 
006340 
006342 
006350 



CZKWA-G LINE 
GZKWAG.P11 



1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 
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SEO 002 



000240 
032777 
001111 



006352 000416 



006354 
006360 
006366 
006372 
006376 
006400 
006402 
006406 
006410 
006410 
006416 
006420 
006426 
006430 
006434 
006436 
006444 
006446 
006454 
006456 
006464 
006466 
006472 
006476 
006500 
006506 
006510 
006514 
006516 
006522 
006530 
006532 
006540 
006546 



013746 
012737 
005737 
012637 
000463 
022626 
012637 
000423 

032777 
001404 
127737 
001462 
105737 
001421 
123737 
101015 
032777 
001404 
013737 
000443 
105037 
005037 
000415 
032777 
001011 
005737 
001406 
005237 
023737 
002021 
012737 
013737 
105237 



000004 
006400 
177060 
000004 



000004 

000400 

172512 

001103 

001115 

001000 

001110 

001103 
001220 

00400C 

001100 

001104 
001220 

000001 
006610 
001102 



000004 



172520 
001102 

001103 
172462 
001106 



001104 

001104 
001220 



SBTTL SCOPE HANDLER ROUTINE 

•Th;S routine controls the looping of subtests, it will IMCREMEM 
•AND LOAD THE TEST NUPIBER(tTSTNN) INTO THE DISPLAY REG. (0ISPLAY<7:0>) 
•AND LOAD THE ERROR FLAG (SERFLG) INTO 0ISPLAY<1S:08> 
•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
•SW14=1 LOOP ON TEST 

• SW1U1 INHIBIT ITERATIONS 
•SU09:1 LOOP ON ERROR 

•SU08=1 LOOP ON TEST IN SUR<7:0> 

•CALL 

• SCOPE ;;SC0PE=I0T 



040000 172566 IS 



SSCOPE: 

NOP 
BIT 

bne 

;#####START OF 

tXTSTR: BR 



nov 

NOV 

TST 

nov 

BR 

5$: CUP 

nov 

BR 

6S:;f##mND OF 

BIT 



2S: 



7$: 
4S: 



172430 3S: 



It: 

tSVLAD: 



BEQ 

CNPB 

BEQ 

TSTB 

BEQ 

CnPB 

BNI 

BIT 

BEQ 

NOV 

BR 

CLRB 

CLR 

BR 

BIT 

BNE 

TST 

BEQ 

INC 

CNP 

BGE 

NOV 

NOV 

INCB 



«BIT14.aSUR 
SOVER 
CODE FOR THE XOR 
6$ 

a#ERRVEC,-(SP) 
#5S,a«ERRVEC 
if 177060 
(SP)^,a«ERRVEC 
SSVLAD 
(SP)*.(SP)* 
(SP)*,a#ERRVEC 
7$ 

CODE FOR THE XOR 
«BIT08.aSUR 
2$ 

aSUR.STSTNN 
SOVER 
SERFLG 
3S 

SERNAX, SERFLG 
3S 

#BIT09,aSUR 
4S 

SLPERR.SLPADR 

SOVER 

SERFLG 

STINES 

IS 

#BIT11,aSUR 
IS 

SPASS 
IS 

SICNT 

STINES, SICNT 
SOVER 
f1, SICNT 
SNXCNT, STINES 
STSTNN 



LOOP ON PRESENT TEST? 
YES IF SU14=1 
TESTERfffff 

IF RUNNING ON THE "XOR" TESTER CHANGE 
THIS INSTRUCTION TO A "NOP" (NOP=240) 
SAVE THE CONTENTS OF THE ERROR VECTOR 
SET FOR TINEOUT 
TINE OUT ON XOR? 
RESTORE THE ERROR VECTOR 
GO TO THE NEXT TEST 
CLEAR THE STACK AFTER A TINE OU^ 
RESTORE THE ERROR VECTOR 
LOOP ON THE PRESENT TEST 
TESTER#f««f 
LOOP ON SPEC. TEST? 
BR IF NO 

ON THE RIGHT TEST? SWH<7:0> 
BR IF YES 

HAS AN ERROR OCCURRED? 
BR IF NO 

NAX. ERRORS FOR THIS TEST OCCURRED? 
BR IF NO 
LOOP ON ERROR? 
BR IF NO 

SET LOOP ADDRESS TO LAST SCOPE 
ZERO THE ERROR FLAG 

CLEAR THE NUMBER OF ITERATIONS TO NAKE 
ESCAPE TO THE NEXT TEST 
INHIBIT ITERATIONS? 
BR IF YES 

IF FIRST PASS OF PROGRAN 
INHIBIT ITERATIONS 
INCRENENT ITERATION COUNT 
CHECK THE NUNBER OF ITERATIONS NADE 
BR IF NORE ITERATION REQUIRED 
REINITIALIZE THE ITERATION COUNTER 
SET NUNBER OF ITERATIONS TO DO 
COUNT TEST NUNBERS 



CZKUA-G LINE 
CZICUAG.P11 



1232 
1233 
123A 
1235 
1256 
1237 
1238 
1239 
1240 
12A1 
1242 
1243 
12A4 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 



006552 
006556 
006562 
006566 
006574 
006602 
006606 
006610 



FREQUENCY 
10-APR-78 

0:i637 
011637 
005037 
112737 
013777 
013716 
000002 
000010 



CLOCK 
11:05 

001106 
001110 
001222 
000001 
001102 
001106 



PROGRAM 



C 3 

HACVn 30A(1052) 19-APR-78 U:25 
SCOPE HANDLER ROUTINE 
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SEQ 0028 



001115 
1 72336 



(OVER: 



SMXCNT: 10 



HOV 


(SP) .SLPADR 


MOV 


(SP) ,SLPERR 


CLR 


SESCAPE 


novB 


fl.SERMAX 


NOV 


STSTNN,aDISPLAY 


MOV 


SLPADR, (SP) 


RTI 





SAVE SCOPE LOOP ADDRESS 

SAVE ^RROR LOOP ADDRESS 

CLEAR THE ESCAPE FROM ERROR ADDRESS 

ONLY ALLOy ONE(l) ERROR ON NEXT TEST 

DISPLAY TEST NUMBER 

FUDGE RETURN ADDRESS 

FIXES PS 

MAX. NUMBER OF ITERATIONS 



************************** AAAtttAtAAt************************** 

SBTTL TYPE ROUTINE 

*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
*THE ROUTINE UILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 



•NOTEl 
*N0TE2 
*N0TE3 



SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 



•CALL: 

*1) USING A TRAP INSTRUCTION 



*0R 



TYPE 



.MESADR 



:;NESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



IPSA 








• * 


TYPE 






1?55 

t C J J 








■ ♦ 


MESADR 

rib V n w n 






1 c 








■ * 








1257 
















1258 


006612 


105737 


001155 


STYPE : 


TSTB 


STPFLG 


'■IS THERE A TERMINAL** 


1259 


006616 


100002 






BPL 




; -BR IF YES 


1260 


006620 


000000 






HALT 




.-•HALT HERE IF NO TERMINAL 


1261 


006622 


000407 






BR 


3S 


LEAVE 


1262 


006624 


010046 




IS; 


MOV 


RO.-(SP) 


;;SAVE RO 


1263 


006626 


017600 


000002 




MOV 


a2(SP).R0 


;:6ET ADDRESS OF ASCIZ STRING 


1264 


006632 


112046 




2S: 


MOVB 


(RO)*.-(SP) 


;;PUSH CHARACTER TO BE TYPED ONTO STACK 


1265 


006634 


001005 






BNE 


4S 


;;BR IF IT ISN'T THE TERMINATOR 


1266 


006636 


005726 






TST 


(SP)* 


;:IF TERMINATOR POP IT OFF THE STACK 


1267 


006640 


012600 




60S: 


MOV 


(SP)*,RO 


RESTORE RO 


1268 


006642 


062716 


000002 


3S: 


ADD 


f2.(SP) 


ADJUST RETURN PC 


1269 


006646 


000002 






RTI 




: .RETURN 


1270 


006650 


122716 


000011 


4S: 


CMPB 


ITHT,(SP) 


.-.BRANCH IF <HT> 


1271 


006654 


001426 






BEQ 


8t 




1272 


006656 


122716 


000200 




CMPB 


#TCRLF,(SP) 


.-.-BRANCH IF NOT <CRLF> 


1273 


006662 


001004 






BNE 


SS 




1274 


006664 


005726 






TST 


(SP)» 


;;POP <CR><LF> EQUIV 


1275 


006666 


104400 






TYPE 




;;TYPE A CR AND LF 


1276 


006670 


001231 






SCRLF 






1277 


006672 


000757 






BR 


2S 


;;GET NEXT CHARACTER 


1278 


006674 


004737 


006756 


5S; 


JSR 


PCSTYPEC 


;;G0 TYPE THIS CHARACTER 


1279 


006700 


123726 


001154 


6S: 


CMPB 


SFILLC, (SP)* 


::IS IT TIME FOR FILLER CHARS.? 


1280 


006704 


001352 






BNE 


2S 


::IF NO GO GET NEXT CHAR. 


1281 


006706 


013746 


001152 




MOV 


SNULL, -(SP) 


;;6ET 1 OF FILLER CHARS. NEEDED 


1282 














;;AND THE NULL CHAR. 


1283 


006712 


105366 


000001 


7S: 


DECB 


KSP) 


;;DOES A NULL NEED TO BE TYPED? 


1284 


006716 


002770 






BLT 


6S 


:;BR IF NO— GO POP THE NULL OFF OF STACK 


1285 


006720 


004737 


006756 




JSR 


PCSTYPEC 


;;G0 TYPE A NULL 


1286 


006724 


105337 


007022 




DECB 


SCHARCNT 


;:D0 NOT COUNT AS A COUNT 


1287 


006730 


000770 






BR 


7S 


;:LOOP 
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1288 
1289 
1290 
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•APR-78 
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SEO 0029 



;H0RIZ0NTA. TAB PROCESSOR 



1 291 


006/32 


i 1 O 7 1 i 

1 itr 10 


AAAAy A 
UUUU4U 




B> : 


MAUD 

novo 


a/A (CD) 

•hU , Kir ) 


■ •DCDI Arc T4D UTTU CDATC 


1 cfZ 


00b (30 


AAy 777 


AA^7CiL 
UOOf DO 




Q< • 
7» : 


1 C D 


or CTVDcr 


• • T VDC A CD A rC 


1 101 

1 £95 


AA^7/ "3 

UQO r4£ 


1 TO 7T7 


AAAAA7 


OOfOcc 




Q T TQ 




■ •DDAkirU tC MOT AT 


1 0O£ 

1 cfM 


U06f )(; 


OU 1 if £ 








DUE 




• • TAR CTnP 


1 cVd 




AnC7'3iL 

OU) r CO 








TCT 


f CD) « 


••POP CPATF nff CTArr 


1 JQH 

1 dyo 


OOorjH 


UUUr cO 








QB 


3« 




1 


000 fjt) 


1 n?777 


1 751 AL 
I f c 1 Oh 




CTVDPr • 
• 1 TrtL . 


T5TH 


aCTPC 

• • 1 r 3 


• •UAIT HMTII PRIMTFR TC RFADV 


1 DO& 

1 C70 


AA^7^5 


iOOjij 








RPI 

Dr L 


CTVPFT 




1 DQO 
1 CTT 




1 1 00 1 f 




1 751 
1 r c 1 jO 




novB 


C ^ y , 9m 1 rD 


••inAh ruAfi Tn rf typfd TNTn data rfr 


1 J\)\) 


UUO f f c 


1 cc r OO 


UUUv 1 J 


UUUUUc 




CHP8 


#1S 7(^P) 

w I J 0 C \ 9r i 


• -RRAMrH IF 


1 im 


t\(\7f\f\(\ 


UU 1 wU J 








BNE 


1 c 
1 9 


• • unT <rR> 


1 

1 jUc 


UUr UUc 


1 ACOT7 








CLRB 






1 JVJ 


W f vvw 










BR 


STYPEX 


; ;EXIT 


1304 


007010 


122766 


000012 


000002 


IS: 


CHPB 


#12.2(SP) 


■•BRANCH IF 


1305 


007016 


002002 








BGE 


STYPEX 


;;<LF> 


1306 


007020 


105227 








INCB 


(PC)* 


;;INC SPACE 


1307 


007022 


000000 






SCHARCNT: .yORD 


0 


; ; COUNT 


1308 


007024 


000207 






STYPEX: 


RTS 


PC 




1309 












EQUATES 






1310 




00001 1 






THT=11 








1311 




000200 






TCRLF=200 







1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 



; A************************************************************** 

.SBTTL CONVERT BINARY TO OECINAL AND TYPE ROUTINE 

:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
.-•SIGNED OECIHAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
:*NUn8ER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
:*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
.••REPLACED WITH SPACES. 



007026 
007026 
007030 
007032 
007034 
007036 
007040 
007044 
007050 
007052 
007054 
007062 
007064 
007070 
007074 
007076 
007102 
007104 



010046 
010146 
010246 
010346 
010546 
012746 
016605 
100004 
005405 
112766 
005000 
012703 
112723 
005002 
016001 
160105 
002402 



.••CALL: 



STYPDS; 



MOV 
TYPDS 



NUH.'(SP) 



;;PUT THE BINARY NUMBER ON THE STACK 
;:G0 TO THE ROUTINE 



020200 
000020 



000055 000001 



007242 
000040 

007232 



IS: 



2S: 
3S: 



NOV 


RO.-(SP) 


;:PUSH RO ON STACK 


MOV 


RI.-(SP) 


;;PUSH R1 ON STACK 


MOV 


R2.-(SP) 


;:PUSH R2 ON STACK 


MOV 


R3,-(SP) 


;:PUSH R3 ON STACK 


MOV 


R5.-(SP) 


;;PUSH RS ON STACK 


MOV 


#20200. -(SP) 


::SET BLANK SWITCH AND SIGN 


MOV 


20(SP).R5 


:;GET THE INPUT NUMBER 


BPL 


IS 


;;BR IF INPUT IS POS. 


NEG 


R5 


;:MAKE THE BINARY NUMBER POS. 


MOVB 


#'-.1(SP) 


;:NAKE THE ASCII NUMBER NEG. 


CLR 


RO 


::ZERO THE CONSTANTS INDEX 


MOV 


mBLK.R3 
#• ,(R3)+ 


;; SETUP THE OUTPUT POINTER 


MOVB 


;;SET THE FIRST CHARACTER TO A BLANK 


CLR 


R2 


;: CLEAR THE BCD NUMBER 


MOV 


SDTBL(R0),R1 


;;GET THE CONSTANT 


SUB 


R1,R5 


;:FORN THIS BCD DIGIT 


BLT 


4S 


;;BR IF DONE 



CZIcyA-G LINE 
CZKUAG.PII 



FREQUENCY 
10-APR-78 



CLOCK 
11:05 



PROGRAM 
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SEQ 0030 



1344 

1345 

13A6 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 



007106 005202 

007110 000774 

007112 060105 

007114 005702 

007116 001002 

007120 105716 

007122 100407 

007124 106316 

007126 103003 

007130 116663 000001 177777 

007136 052702 000060 

007142 052702 000040 

007146 110223 

007150 005720 

007152 020027 000010 

007156 002746 

007160 003002 

007162 010502 

007164 000764 

007166 105726 

007170 100003 

007172 116663 177777 177776 

007200 105013 

007202 012605 

007204 012603 

007206 012602 

007210 012601 

007212 012600 

007214 104400 007242 

007220 016666 000002 000004 

007226 012616 

007230 000002 

007232 023420 

007234 001750 

007236 000144 

007240 000012 

007242 000004 



4S: 



5$: 



6S: 
7$: 



8S: 



9$: 



$DTBL: 



$D8LK: 



INC 

BR 

ADD 

TST 

BNE 

TSTB 

BHI 

ASLB 

BCC 

MOVB 

BIS 

BIS 

MOVB 

TST 

CMP 

BLT 

BGT 

MOV 

BR 

TSTB 

BPL 

MOVB 

CLRB 

MOV 

MOV 

MOV 

MOV 

MOV 

TYPE 

MOV 

HOV 

F.TI 

10000. 

'000. 

100. 

10. 

.BLKU 



R2 
3$ 

R1.R5 

R2 

5$ 

(SP) 

7$ 

(SP) 

6S 

1(SP).-1(R3) 

#'0.R2 

#• .R2 

R2.(R3)* 

(RO)* 

RO.IIO 

2S 

8S 

R5.R2 
6S 

(SP)* 
9$ 

-1(SP).-2(R3) 
(R3) 

(SP)*.R5 

(SP)*,R3 

(SP)*,R2 

(SP)*.R1 

(SP)*.RO 

.SDBLK 

2{SP),4(SP) 

(SP)*.(SP) 



.'.INCREASE THE BCD DIGIT BY 1 

;;ADD BACK THE CONSTANT 

::CHECK IF BCD DIGIT=0 

:;FALL THROUGH IF 0 

: .STILL DOING LFADING O'S? 

;;BR IF YES 

;;HSD? 

::BR IF NO 

;; YES— SET THE SIGN 

;;HAKE THE BCD DIGIT ASCII 

::MAKE IT A SPACE IF NOT ALREADY A DIGIT 

:;PUT THIS CHARACTER IN THE OUTPUT BUFFER 

:;JUST INCREMENTING 

CHECK THE TABLE INDEX 
;;G0 DO THE NEXT DIGIT 
;;G0 TO EXIT 
;;6ET THE LSD 
;:G0 CHANGE TO ASCII 
;;UAS THE LSD THE FIRST NON-ZERO? 
* 'BR IF NO 

••YES— SET THE SIGN FOR TYPING 
;;SET THE TERMINATOR 
;;POP STACK INTO R5 
;;POP STACK INTO R3 
;;POP STACK INTO R2 
;;POP STACK INTO R1 
;:POP STACK INTO RO 
:;NOW TYPE THE NUMBER 
ADJUST THE STACK 

RE TURN TO USER 



.SSTTL BINARY TO OCTAL (ASCII) AND TYPE 

*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
*OCTAL (ASCII) NUMBER AND TYPE IT. 

*$TYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

•CALL: 

« MOV NUM,-(SP) .'.'NUMBER TO BE TYPED 

» TYPOS ;;CALL FOR TYPEOUT 

t .BYTE N :;N-1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

• .BYTE M :;M=1 OR 0 

♦ ;;1=TYPE LEADING ZEROS 

• ;:0-SUPPRESS LEADING ZEROS 
* 

»STYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

*STYPOS OR fTYPOC 
•CALL: 

* MOV NUM,-(SP) ;: NUMBER TO BE TYPED 



CZKUA-G LINE FREQUENCY CLOCK PROGRAM 
CZKUAG.PII lO-APR-78 r. :05 



UOO 

U01 

U02 

U03 

U04 

UOS 

U06 

U07 

U08 

1A09 

UIO 

K11 

U12 

U13 

UU 

U15 

1416 

U17 

U18 

U19 

U20 

U21 

U22 

U25 

U2A 

U25 

U26 

U27 

U28 

U29 

U30 

U31 

U32 

U33 

U3A 

U35 

U36 

U37 

U38 

U39 

U40 

U41 

U42 

UA3 

U44 

U45 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 
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SEQ 0051 



TYPON 



;;CALL FOR TYPEOUT 



*$TYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

.-.-NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 











;*CALL: 
















NOV 


NUM,-(SP) 










• • 


TYPOC 




007252 


017646 


000000 




$ TYPOS: 


MOV 


a(SP) .-(SP) 


007256 


116637 


000001 


007475 




Move 


1 (SP) .SOFILL 


007264 


112637 


007477 






MOVB 


(SP)*,10H0DE*1 


007270 


062716 


000002 






ADD 


#2. (SP) 


007274 


000406 








BR 


STYPON 


007276 


112737 


000001 


007475 


STYPOC : 


MOVB 


#1 , SOFILL 


007304 


112737 


000006 


007477 




MOVB 


#6.S0N0DE^1 


007312 


112737 


000005 


007474 


STVPON: 


MOVB 


#5.S0CNT 


007320 


010346 








MOV 


R3,-(SP) 


007322 


010446 








MOV 


R4.-(SP) 


007324 


010546 








MOV 


R5,-(SP) 


007326 


113704 


007477 






MOVB 


SOMODE*! ,R4 


007332 


005404 








NEC 


R4 


007334 


062704 


000006 






ADD 


#6,R4 


007340 


110437 


007476 






MOVB 


R4,SOMO0E 


007344 


1 1 3704 


007475 






MOVB 


SOFILL, R4 


007350 


016605 


000012 






MOV 


12(SP) ,R5 


007354 


005003 








CLR 


R3 


007356 


006105 






IS: 


ROL 


R5 


007360 


A A M « A i 

000404 








BR 


3S 


007362 


006105 






2$: 


ROL 


R5 


007364 


A A y 4 A r 

006105 








ROL 


R5 


007366 


006105 








ROL 


R5 


007370 


010503 








MOV 


R5,R3 


007372 


AA^ 4 AV 

006103 






3S: 


ROL 


R3 


007374 


4 A r 9 9 7 

105337 


AAV t ^ t 

007476 






DECB 


SOMOOE 


A A ^ / A A 

007400 


100016 








BPL 


71 


A A^ / A ^ 

007402 


A / A V 

042703 


4 W W A 

177770 






6IC 


M4VW9A nV 

#1 77770, R3 


007406 


A A 4 A A 

001002 








BNE 


4S 


007410 


005704 








TST 


R4 


007412 


A A 4 / A9 

001403 








BEO 


5S 


A A'9 / 4 / 

007414 


A A f A / 

005204 






4S: 


INC 


R4 


A A ^ / 4 ^ 

007416 


Af 7 A 7 

052703 


A A A A ^ A 

000060 






BIS 


M 1 A V 

# 0.R3 


007422 


052703 


A A A A 1 A 

000040 




5S: 


BIS 


M t A V 

i ,R3 


007426 


4 4 A9 T ^ 

110337 


A A V / V ^ 

007472 






MOVB 


fk V A* 

R3,8S 


A A ^/ T ^ 

007432 


4 A / / A A 

104400 


AAV/ V "> 

007472 






TYPE 


,8S 


007436 


4 A r 7 7 ? 

105337 


A A V y V / 

007474 




7S: 


DECb 


SOCNT 


A A ^ / / «1 

007442 


AAV V / *9 

003347 








BGT 


2S 


007444 


A A 1 / A ^ 

002402 








BLT 


6S 


007446 


A A C ^ A / 

005204 








INC 


R4 


00 r43U 










BR 




007452 


012605 






6t: 


MOV 


(SP)*,R5 


007454 


012604 








MOV 


(SP)»,R4 


007456 


012603 








MOV 


(SP)».R3 


007460 


016666 


000002 


000004 




MOV 


2(SP),4(SP) 


U07466 


012616 








MOV 


(SP)»,(S«>) 


007470 


000002 








RTI 




000 






8$: 


.BYTE 


0 


007473 


000 








.BYTE 


0 



PICKUP THE MODE 
LOAD ZERO FILL SWITCH 
NUMBER OF DIGITS TO TYPE 
ADJUST RETURN ADDRESS 

SET THE ZERO FILL SWITCH 
SET FOR SIX(6) DIGITS 
SET THE ITERATION COUNT 
SAVE R3 
SAVE R4 
SAVE R5 

GET THE NUM3ER OF DIGITS TO TYPE 

SUBTRACT IT FOR MAX. ALLOWED 

SAVE IT FOR USE 

GET THE ZERO FILL SWITCH 

PICKUP THE INPUT NUMBER 

CLEAR THE OUTPUT WORD 

ROTATE MSB INTO "C" 

GO DO MSB 

FORM THIS DIGIT 



GET LSB OF THIS DIGIT 
TYPE THIS DIGIT? 
BR IF NO 
GET RID OF JUNK 
TEST FOR 0 
SUPPRESS THIS 0? 
BR IF YES 

DON'T SUPPRESS ANYMORE O'S 
MAKE THIS DIGIT ASCII 
MAKE ASCII IF NOT ALREADY 
SAVE FOR TYPING 
GO TYPE THIS DIGIT 
COUNT BY 1 
BR IF MORE TO DO 
BR IF DONE 

INSURE LAST DIGIT ISN'T A BLANK 
GO DO THE LAST DIGIT 
RESTORE R5 
RESTORE R4 
RESTORE R3 

SET THE STACK FOR RETURNING 
RETURN 

STORAGE FOR ASCII DIGIT 
TERMINATOR FOR TYPE ROUTINE 



CZKUA-G LINE FREQUENCY CLOCK PROGRAM 
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U56 


007474 


000 




U57 


007475 


000 




U58 


007476 


000000 




U59 








U60 








U61 








U62 








U63 








U6A 








U65 








U66 








U67 


007500 






U68 


007500 


104400 


001231 


U69 


007504 


010046 




1470 


007506 


005000 




U71 


007510 


153700 


001114 


U72 


007514 


001004 




U73 








U7A 


007516 


013746 


001116 


U75 








K76 


007522 


104401 




U77 


007524 


000426 




U78 


007526 


005300 




U79 


00753C 


006300 




U80 


007532 


006300 




U81 


007534 


006300 




U82 


007536 


062700 


001236 


U83 


007542 


012037 


007552 


U84 


007546 


001404 




U85 


007550 


104400 




U86 


007552 


000000 




U87 


007554 


104400 


001231 


1488 


007560 


012037 


007570 


1489 


007564 


001404 




1490 


007566 


104400 




1491 


007570 


000000 




1492 


007572 


104400 


001231 


1493 


007576 


011000 




1494 


007600 


001004 




1495 


007602 


012600 




1496 


007604 


104400 


001231 


1497 


007610 


000207 




1498 


007612 






1499 


007612 


013046 




1500 


007614 


104401 




1501 


007616 


005710 




1502 


007620 


001 770 




1503 


007622 


104400 


007630 


1504 


007626 


000771 




1505 


007630 


020040 


000 


1506 




007634 




1507 








1508 








1509 








1510 








1511 
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>EQ 0032 



$0CNT: .BYTE 0 
fOFILL: .BYTE 0 
SOnODE: .WORD 0 



;;OCTAL DIGIT COUNTER 

.-.ZERO FILL SWITCH 

; .-NUMBER OF DIGITS TO TYPE 



.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 

.♦THIS ROUTINE USES THE "ITEM CONTROL BYTE" (SITEMB) TO DETERMINE WHICH 

;*ERROR IS TO BE REPORTED. IT THEN OBTAINS. FROM THE "ERROR TABLE" (SERRTB). 

.••AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 



SERRTYP: 





TYPE 


.SCRLF 




MOV 


R0,-(SP) 




CLR 


RO 




BISB 


i#$I TEMB.ro 




BNE 


IS 




MOV 


SERRPC .-(SP) 




TYPOC 






BR 


6» 


1»: 


DEC 


n A 
RO 




API 

ASL 


RO 




A CI 

ASL 


fk A 

RO 




A^L 


B A 

RO 




ADD 


f vtRKTB.RO 




MOV 


/ D A \ ^ 0^ 

(RO) 




BcQ 


39 




TV DC 

TYPE 




Oft . 

C9 : 


.WORD 


0 




TYPE 


c r D 1 c 




MAli 

nUV 


/ on w Z.C 






c* 
j» 




TYPE 




4$: 


.WORD 


0 




TYPE 


.fCRLF 


5S: 


MOV 


(RO}«RO 




BNE 


7$ 


6S: 


MOV 


(SP)+,RO 




TYPE 


.SCRLF 




RTS 


PC 


7$: 








MOV 


a(RO)».-(SP) 




TYPOC 






TST 


(RO) 




BEQ 


6S 




TYPE 


.8S 




BR 


7S 


8S: 


.ASCIZ 


/ / 




.EVEN 





.•/'CARRIAGE RETURN" t "LINE FEED" 
• ' SAVE RO 

••PICKUP THE ITEM INDEX 

::IF ITEM NUMBER IS ZERO. JUST 
;;TYPE THE PC OF THE ERROR 
;;SAVE SERRPC FOR TYPEOUT 
;; ERROR ADDRESS 

;;G0 TYPE— OCTAL ASCIHALL DIGITS) 
;;GET OUT 

:; ADJUST THE INDEX SO THAT IT WILL 
;; WORK FOR THE ERROR TABLE 



::FORM TABLE POINTER 
.-.PICKUP "ERROR MESSAGE" POINTER 
;;SKIP TYPEOUT If NO POINTER 
.-;TYPE THE "ERROR MESSAGE" 
;: "ERROR MESSAGE" POINTER GOES HERE 
:;"CARRIAGE RETURN" t 'IINE FEED" 
;;PICKUP "DATA HEADER" POINTER 
;;SKIP TYPEOUT IF 0 
.-.-TYPE THE "DATA HEADER" 
::"DATA HEADER" POINTER GOES HERE 
"CARRIAGE RETURN" ( "LINE FEED" 
; .PICKUP '^ATA TABLE" POINTER 
;:G0 TYPE THE DATA 
.-.RESTORE RO 

:; "CARRIAGE RETURN" & "LINE FEED" 
:; RE TURN 

.•;SAVE a(RO)* FOR TYPEOUT 

.-.-GO TYPE—OCTAL ASCI I (ALL DIGITS) 

;.-IS THERE ANOTHER NUMBER? 

;.-BR IF NO 

;;TYPE TW0<2) SPACES 
.-.LOOP 

;;TW0(2) SPACES 



.SBTTL ERROR HANDLER ROUTINE 

;*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 



CZKWA-G LINE 
CZKUAG.P11 



1512 

1513 

15U 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 



FREQUENCY 
10-APR-78 



CLOCK 
11:05 



PROGRAM 
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SEO 0033 



007634 
007634 
007640 
007646 
007654 
007660 
007666 
007672 
007676 
007700 
007706 
007714 
007716 
007722 
007726 
007732 
007740 
007746 
007754 
007756 
007762 
007766 
007766 
007772 
007774 
007776 
010004 
010006 
010010 
010016 
010020 
010024 
010030 
010032 
010036 
010036 



010637 
162737 
016637 
005037 
113737 
010037 
105237 
001775 
013777 
032777 
001402 
104400 
005237 
011637 
162737 
117737 
032777 
001004 
004737 
104400 

005777 
100001 
000000 
022737 
001001 
000000 
032777 
001402 
013716 
005737 
001402 
013716 

000002 



001174 
000004 
000002 
001172 
001102 
001160 
001103 

001102 
002000 

001224 
001112 
001116 
000002 
171152 
020000 

007500 
001231 

171144 



006232 



001000 

001110 
001222 

001222 



001 1 74 
001176 

001172 



171232 
171222 



001116 
001114 
171162 



000042 
171120 



•SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
•AND 60 TO SERRTYP ON ERROR 

•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

•SU15=1 HALT ON ERROR 

•SU13=1 INHIBIT ERROR TYPEOUTS 

•SU10=1 BELL ON ERROR 

•SU09=1 LOOP ON ERROR 

•CALL 

• ERROR N ;:ERROR=ENT AND N=ERROP ITEM NUMBER 



SERROR: 



7$: 



IS: 



20t: 
2$: 



31$: 



3$: 



4$: 



5$: 









ML XOtr.fi 




Of CD) tDFr.7 


CLR 


$REG5 


MOVB 


$TSTNM,tREG5 


nu V 




I MTR 
i n i> D 


tFRFI Ct 


DC V 


* • 


nu v 


iTSTMN an 1 ^Pl AY 


RIT 




RFO 


1 9 


TYPF 




INC 


iFRTTI 


NOV 


(SP) tFRRPC 


SUB 


f? tFRRPC 


MOVB 


aSERRPC SITEMB 


BIT 


«BITl3,aSUR 


BNE 


20S 


JSR 


PC.$ERRTYP 


TYPE 


.SCRLF 


TST 


8SUR 


BPL 


31» 


HALT 




CUP 


#SENDAD,af42 


BNE 


3$ 


HALT 




BIT 


#BIT09,aSWR 


BEQ 


4t 


HOV 


tLPERR,(SP) 


TST 


SESCAPE 


BEQ 


5S 


NOV 


SESCAPE. (SP) 


RTI 




TRAP 


DECODER 



.-GET THE CURRENT STACK POINTER VALUE 

.RESTORE IT TO ITS "PRE ERROR TRAP" VALUE FOR PR 
;GET THE PS OFF OF THE STACK 
.•PREPARE "fREGS" TO HOLD THE TEST # 
;TEST f IS HELD IN THE LOU BYTE OF "TSTNH" 
.-HOST OF THE TIME RO HAS GOOD STUFF IN IT ALSO 
SET THE ERROR FLAG 
DON'T LET THE FLAG GO TO ZERO 
DISPLAY TEST NUMBER AND ERROR FLAG 
BELL ON ERROR? 
NO - SKIP 
RING BELL 

COUNT THE NUMBER OF ERRORS 
GET ADDRESS OF ERROR INSTRUCTION 



STRIP AND SAVE THE ERROR ITEM CODE 

SKIP TYPEOUT IF SET 

SKIP TYPEOUTS 

GO TO USER ERROR ROUTINE 



HALT ON ERROR 
SKIP IF CONTINUE 
HALT ON ERROR! 
ACT-11 AUTO-ACCEPT? 
BRANCH IF NO 
YES 

LOOP ON ERROR SWITCH SET? 
BR IF NO 

FUDGE RETURN FOR LOOPING 
CHECK FOR AN ESCAPE ADDRESS 
BR IF NONE 

FUDGE RETURN ADDRESS FOR ESCAPE 



.RETURN 



.SBTTL 

.-•THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
.-•AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
.-•OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
;*G0 TO THAT ROUTINE. 



010040 010046 



STRAP: HOV 



RO,-(SP) 



::SAVE RO 
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SEQ 0034 



1568 


010042 


016600 


000002 


nov 


2(SP).R0 


;;GET TRAP ADDRESS 


1369 


010046 


005740 




TST 


-(RO) 


.-.BACKUP BY 2 


1570 


010050 


111000 




NOVB 


(RO).RO 


;;GET RIGHT BYTE OF TRAP 


1571 


010052 


006300 




ASL 


RO 


.-POSITION FOR INDEXING 


1572 


010054 


016000 


010062 


nov 


STRPAD(RO) .RO 


:; INDEX TO TABLE 


1573 


010060 


000200 




RTS 


RO 


;;G0 TO ROUTINE 


1574 














1575 














1576 








.SBTTL TRAP 


TABLE 





1577 

1578 

1579 

1580 

1581 

1582 

1583 

'584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

1612 

1615 

1614 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 



010062 
010062 
010064 
010066 
010070 
010072 



:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
.••BY THE "TRAP" INSTRUCTION. 



006612 
007276 
007252 
007312 
007026 



STRPAD: 



ROUTINE 



STYPE 

$TYPOC 

STYPOS 

ITYPON 

STYPOS 



;;CALL=TYPE 

;;CALL=TYPOC 

;;CALL=TYPOS 

;;CALL=TYPON 

;;CALL=TVPOS 



TRAP»0(104400) 
TRAP*1 (104401) 
TRAP*2(104402) 
TRAP»3(104403) 
TRAP«4( 104404) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (^0 LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 



.SBTTL POWER DOWN AND UP ROUTINES 













nnuu 


010074 


012/37 


010236 


000024 


SPWRDN: 


MOV 


010102 


012737 


000540 


000026 




MOV 


01011G 


010046 








MOV 


010112 


010146 








MOV 


010114 


010246 








NOV 


010116 


010346 








MOV 


010120 


010446 








MOV 


010122 


010546 








MOV 


010124 


013746 


010456 






MOV 


010130 


013746 


010460 






MOV 


010134 


013746 


010254 






MOV 


010140 


013746 


001672 






MOV 


010144 


010637 


010242 






MOV 


010150 


012737 


010162 


000024 




MOV 


010156 


000000 








HALT 


010160 


000776 








BR 










.POWER 


UP RO 


010162 


013706 


010242 




SPWRUP: 


MOV 


010166 


005037 


010242 






CLR 


010172 


005237 


01024? 




IS: 


INC 


010176 


001375 








BNE 


010200 


012605 








MOV 


010202 


012604 








MOV 


010204 


012603 








MOV 


010206 


012602 








MOV 


010210 


012601 








MOV 


010212 


012600 








MOV 


010214 


012737 


010074 


000024 




MOV 


010222 


012737 


000340 


000026 




MOV 



ROUTINE 

#SILLUP.a#PWRVEC 
#340,a#PWRVECt2 ; 
RO.-(SP) 
RI.-(SP) 
R2.-(SP) 
R3.-(SP) 
R4,-(SP) 

R5.-(SP) ; 
POWPUS,-(SP) 
POWPOP,-(SP) ; 
POWHES.-(SP) 
TOOOI.-(SP) 
SP,SSAVR6 
#$PWRUP.a»PWRVEC 

.-2 



SSAVR6,SP 
>SAVR6 
SSAVR6 
IS 

(SP)*.R5 
(SP)*,R4 
(SP)*.R3 
(SP)*.R2 
(SP)*.R1 
(SP)^.RO 

fSPWRDN.aiPWRVEC 
«340,a#PWRVEC«2 



;;SET FOR FAST UP 
;PRI0:7 

:PUSH RO ON STACK 
;PUSH Rl ON STACK 
.PUSH R2 ON STACK 
.■PUSH R3 ON STACK 
:PUSH R4 ON STACK 
;PUSH ft5 ON STACK 
;PUSH POUPUS ON STACK 
:PUSH POUPOP ON STACK 
;PUSH POWMES ON STACK 
.PUSH T0001 ON STACK 
.-SAVE SP 
:;SET UP VECTOR 

:HANG UP 



GET SP 

WAIT LOOP FOR THE TTY 
WAIT FOR THE INC 

OF <P0WPUS>.<POWPOP>.<POWMES>.<T0001> WORD 

POP STACK INTO R5 

POP STACK INTO R4 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO Rl 

POP STACK INTO RO 

:SET UP THE POWER DOWN VECTOR 

PRI0:7 



CZKUA-G 


LINE 


FREQUENCY 


CLOCK PROC'AH 


MACYll 


30A(1052) 19-APR-78 'l4:25 PAGE 32 


CZKUAG. 


P11 


lO-APR-78 


11 -05 




POWER DOWN AND 


UP ROUTINES SEQ 0035 


1624 


010230 


104400 








TYPE 


-REPORT THE POWER FAILURE 


1625 


010232 


010244 






SPWRMG: 


.WORD 


SPOWER "POWER FAIL MESSAGE POINTER 


1626 


010234 


000002 








RTI 




1627 


010236 


000000 






SILLUP: 


HALT 


::THE POWER UP SEQUENCE WAS STARTED 


1628 


010240 


000776 








BR 


-2 " BEFORE THE POWER DOWN WAS COMPLETE 


1629 


010242 


000000 






$SAVR6: 


0 


"PUT THE SP HERE 


1630 


010244 


005015 


047520 


042527 


SPOWER: 


.ASCIZ 


<1 5><12>"POWER" 


1631 


010252 


000122 












1632 












.EVEN 




1633 


010254 


005015 


042522 


052123 


POWHES: 


.ASCIZ 


<15> <12> "RESTARTING AFTER A POWER FIALURE" <15> <12> <12> 


1634 


010262 


051101 


044524 


043516 








1635 


010270 


040440 


052106 


051105 








1636 


010276 


040440 


050040 


053517 








1637 


010304 


051105 


043040 


040511 








1638 


010312 


052514 


042522 


005015 








1639 


010320 


000012 












16A0 


010322 


005015 


041412 


045532 


STMES: 


.ASCIZ 


<1 5x12x1 2>"CZICWA-6 LINE FREQUENCY CLOCK TEST"<15><12> 


1641 


010330 


040527 


043455 


046040 








1642 


010336 


047111 


020105 


051106 








1643 


010344 


050505 


042525 


041516 








1644 


010352 


02C131 


046103 


041517 








1645 


010360 


020113 


042524 


052123 








1646 


010366 


005015 


000 










1647 
















1648 


010371 


124 


040522 


050120 


TRPHES: 


.ASCIZ 


"TRAPPED TO LOC 4 FROM LOCATION " 


1649 


010376 


042105 


052040 


020117 








1650 


010404 


047514 


020103 


020064 








1651 


010412 


051106 


046517 


046040 








1652 


010420 


041517 


052101 


047511 








1653 


010426 


020116 


000040 










1654 


010432 


042522 


052123 


051101 


TRPH2S: 


.ASCIZ 


"RESTADTING PROGRAM" 


1655 


010440 


044524 


043516 


050040 








1656 


010446 


047522 


051107 


046501 








1657 


010454 


000 












1658 




010456 






.EVEN 






1659 


010456 


001234 






POUPUS : 


WORD 




1660 


010460 


001234 






POWPOP : 


WORD 




1661 


010462 


020040 


020040 


020040 


EMI : 


.ASCIZ 


LKS LKS 


1662 


010470 


020040 


020040 


020040 








1663 


010476 


020040 


020040 


020040 








1664 


010504 


020040 


020040 


020040 








1665 


010512 


020040 


020040 


020040 








1666 


010520 


020040 


045514 


020123 








1667 


010526 


A AAA t A 

020040 


020040 


045514 








1668 


010534 


A A 4 'W 

020123 


020040 


020040 








1669 


010542 


000 












1670 


010543 


Ar A 

050 


04152P 


020051 


DHl : 


.ASCIZ 


"(PC) (PS) (SP) TEST* WAS S/B 


1671 


010550 


020040 


024040 


051520 








1672 


010556 


020051 


020040 


024040 








1673 


010564 


050123 


020051 


020040 








1674 


010572 


052040 


051505 


021524 








1675 


010600 


020040 


053440 


051501 








1676 


010606 


A 1 A A J A 

020040 


020040 


051440 








1677 


010614 


A i 4 A r ^ 

041057 


020040 


020040 








1678 


010622 


000040 












1679 










.EVEN 









CZKUA-G LINE 
CZKyAG.PlI 



FREQUENCY CLOCK PROGRAM 
lO-APR-78 11:05 



MACYll 30A(1052) 19-APR-78 
POWER DOWN AND UP ROUTINES 



3 



U:25 PAGE 33 



SEQ 0036 



1680 

1681 

1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

^695 

1696 

1697 

1698 

1699 

1700 

1701 

17"2 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 



010624 
010632 
010640 
010642 
010650 
010656 
010664 
010672 
010674 
010702 
010710 
010716 
010724 
010732 
010740 

010746 
010754 
010760 
010762 
010770 
010776 
011004 
011012 
011020 
011026 
011034 
011042 
011050 
011055 
011062 
011070 
011076 
011104 
011112 
011120 

011126 
011134 
011140 
011142 
011150 
011156 
011164 
011172 
011200 
011206 
011214 
011222 
011230 
011236 
011241 
011246 
011254 
011262 
011270 



001116 
001172 
000000 
046103 
040506 
052040 
042524 
000124 
050050 
020040 
020040 
024520 
042524 
020040 
020051 
010746 
001116 
001172 
000000 
046103 
047111 
050125 
044127 
042510 
042503 
050040 
052111 
020123 
044510 
050 
020040 
020051 
050123 
052040 
020040 
024523 

001116 
001172 
000000 
046103 
044507 
047125 
020114 
050040 
020123 
052040 
052521 
051105 
047440 
042515 
050 
020040 
020051 
050123 
052040 



001176 
177546 

041517 
046111 
020117 
051122 

024503 
050050 
020040 
020040 
052123 
046050 
020040 

001 1 76 
177546 

041517 
042524 
042524 
047105 
050040 
051523 
044522 
020131 
047524 
044107 
041520 
024040 
020040 
020051 
051505 
024040 
020040 

001176 
177546 

041517 
042526 
050505 
020043 
046125 
053117 
047527 
046101 
047511 
020106 
000 
041520 
024040 
020040 
020051 
051505 



001174 
001124 

020113 
042105 
047111 
050125 

020040 
024523 
051450 
020040 
020043 
051513 
000 

001174 



020113 
051122 
020104 
052040 
047522 
051117 
051117 
040527 
020117 
000 
020051 
051520 
024040 
020040 
021524 
045514 
000040 

001174 



020113 
020123 
040525 
043117 
042523 
051105 
042440 
050040 
051504 
044524 

020051 
051520 
024040 
020040 
021524 



0T1 : 
0 

EH2: 



0H2; 



tERRPC.SREG7,SREG6,SREG5AKS.SGDDAT 



.ASCIZ "CLOCK FAILED TO INTERRUPT' 



.ASCIZ "(PC) (PS) (SP) TEST* (LKS) 



.EVEN 
DT2: 

0 

Ert3: 



SERRPC,SREG7.SREG6.SREG5.LKS 



.ASCIZ "CLOCK INTERRUPTED WHEN THE PROCESSOR PRIORITY WAS TOO HIGH" 



DH3: 



.ASCIZ "(PC) (PS) (SP) TEST* (L<S) 



.EVEN 
DT3: 

0 

EH4: 



SERRPC,tRE67,$kEG6.$REG5,LKS 



.ASCIZ "CLOCK GIVES UNEQUAL # Of PULSES OVER TWO EQUAL PERIODS OF TIME' 



DH4: 



■ASCIZ "(PC) (PS) (SP) TEST* 1ST 



2N0"<15><12>" 





1 IMF 




CLOCK PROGRAM 


MAT Y1 1 


L 3 

30A(1052) 19-APR-78 14-25 PAGE 34 






CZKUAG. 


Pii 


lO-APR-78 


11 - OS 




POWER 


DOWN AND UP ROUTINES 




SEQ 0037 


1736 


011276 


020040 




0S?1 7\ 










1737 


011304 


020040 














1738 


011312 


042116 


nnsni k 












1739 


011320 


020040 




UcUUHU 










17A0 


011326 


020040 














1741 


011334 


020040 


Uc vUHU 












1742 


011342 


020040 














1743 


011350 


020040 




0700^0 










1744 


011356 


042520 




Ot?1 1 7 










1745 


011364 


020040 














1746 


011372 


042117 














1747 




011376 






.EVEN 








1748 


011376 


001116 


nni 1 7A 


noi 1 TL 


DT4: 


SERRPC,SREG7,SREG6,SREG5,SREG1 ,SREG2 






1749 


011404 


001172 


noi 1 A? 


WW 1 1 O** 










1750 


011412 


000000 






0 








1751 


011414 


045514 


0?01?'5 

vC V 1 C J 


04252? 

w*t C ^ C C 


En5: 


.ASCIZ "LKS REGISTER RESPONDS TO ANOTHER ADDRESS" 




1752 


011422 


044507 




051 lOS 

1 1 W^ 










1753 


011430 


051040 


0S1 SOS 


047520 

W^ f 










1754 


011436 


042116 




047S74 










1755 


011444 


040440 


047S16 












1756 


011452 


051105 




047104 

V^C 1 V"t 










1757 


011460 


042522 




000 

WW 










1758 


011465 


050 


041 S?0 


020051 

VCVV^ 1 


DH5: 


.ASCIZ "(PC) (PS) (SP) TEST* 


ADDRESS" 




1759 


011472 


020040 


024040 


051 520 

V^ 1 ^cv 










1760 


011500 


020051 


020040 


024040 

VC~ V^ V 










1761 


01 1 506 


050123 




070040 

VC VV^ V 










1762 


011514 


052040 


0S1 SOS 


021524 

VC 1 JC"t 










V63 


011522 


020040 


040440 


047104 

V"IC • w"t 










1764 


011530 


042522 


051 523 


000 

www 










1765 




011536 






.EVEN 








1766 


011536 


001116 


001176 


001 1 74 

wV 1 1 1 ^ 


DT5: 


SERRPC,$REG7,tREG6,SREG5.SGDADR 






1767 


011544 


001 1 72 


001120 

WW I I w 










1768 


011550 


000000 






0 








1769 


011552 


020101 


047516 

w^ f ^ 1 U 


051440 

VJ 1 T^V 


En6: 


.ASCIZ "A NO SACK TINEOUT HAS OCCURED" 






1770 


011560 


041501 


0?01 1 3 


044524 










1771 


011566 


042515 


052S17 


0201 24 

VCV 1 c~ 










1772 


011574 


040510 


020123 

WWW 1 


041517 










1773 


011602 


052503 


042S22 


0001 04 

WWW 1 v~ 










1774 


011610 


050050 


024S03 

wC~ -'w J 


020040 

VC VV~ V 


0H6: 


.ASCIZ "(PC) (PS) (SP) TEST# 


(LKS) " 




1775 


011616 


020040 


0500S0 


024523 

VC ~ VC ^ 










1776 


011624 


020040 


020040 

V t WW~ w 


051450 










1777 


011632 


024520 


020040 

VC WW^ V 


020040 

VC W~ W 










1778 


011640 


042524 


052123 

W«r C I C J 


020043 

VC V V~ J 










1779 


011646 


020040 


0460S0 


051513 










1780 


011654 


020051 


020040 


000 
vvv 










1781 




011662 






.EVEN 








1782 


011662 


001116 


001 17^ 


001174 

VV 1 i I T 


PT6: 


SERRPC,$REG7,SREG6,tREG5,LKS 






1783 


011670 


001172 


177546 












1784 


011674 


000000 






0 








1735 


011676 


051127 


047117 

Wt flit 


020107 

V' V 1 V « 


EH7: 


.ASCIZ "WRONG CONDITION COOES WERE PUT 


ONTO STACK BY INTERRUPT" 




1786 


011704 


047503 


0421 16 


052111 

WC III 










1787 


011712 


047511 


020116 


047503 










1788 


011720 


042504 


020123 


042527 










1789 


011726 


042522 


0S0040 


0S717S 










1790 


011734 


047440 


052116 


020117 










1791 


011742 


052123 


041501 


020113 











CZKWA-G 


LINE 


FREQUENCY 


CLOCIC PROGRAM 


MAC V1 1 


H 3 

30A(1052) 19-APR-78 14:25 PAGE 35 


CZKUAG. 


P11 


10-APR-78 


11:05 




POWER 


DOWN AND UP ROUTINES SEO 0038 


1792 


011750 


054502 


044440 


052116 






1793 


011756 


051105 


052522 


052120 






179A 


011764 


000 










1795 


011765 


050 


041520 


020051 


DH7: 


.ASCIZ "(PC) (PS) (SP) TEST* CC WAS CC S/8" 


1796 


011772 


020040 


024040 


051520 






1797 


012000 


020051 


020040 


024040 






1798 


012006 


050123 


020051 


020040 






1799 


012014 


052040 


051505 


021524 






1800 


012022 


020040 


041440 


020103 






1801 


012030 


040527 


020123 


041440 






1802 


012036 


020103 


027523 


0001 02 






1803 










.EVEN 




1804 


012044 


001116 


001 1 76 


001 1 74 


DT7: 


SERRPC,$REG7.$REG6,SREG5,BUF1,$GDDAT 


1805 


012052 


001 1 72 


000776 


001124 






1806 


012060 


000000 






0 




1807 


012062 


051127 


047117 


020107 


EHIO: 


.ASCIZ "WRONG PC PUT ONTO THE STACK BY AN INTERRUPT" 


1808 


012070 


041520 


050040 


052125 






1809 


012076 


047440 


052116 


020117 






181C 


012104 


044124 


020105 


052123 






1811 


012112 


041501 


020113 


054502 






1812 


012120 


040440 


020116 


047111 






1813 


012126 


042524 


051122 


050125 






18U 


012134 


000124 










1815 


012136 


050050 


024503 


020040 


DHIO: 


.ASCIZ "(PC) (PS) (SP) TEST* a(SP)WAS a(SP)S/B " 


1816 


012144 


020040 


050050 


024523 






1817 


012152 


020040 


020040 


051450 






1818 


012160 


024520 


020040 


020040 






1819 


012166 


042524 


052123 


020043 






1820 


012174 


040040 


051450 


024520 






1821 


012202 


040527 


020123 


024100 






1822 


012210 


050123 


051451 


041057 






1823 


012216 


020040 


000 








1824 




012222 






.EVEN 




1825 


012222 


001116 


001176 


001 1 74 


DT10: 


SERRPC , tRE67 , $RE66 , SREGS ,BUF 2 ,$GDDAT 


1826 


012230 


001172 


000774 


001124 






1827 


012236 


000000 






0 




1828 


012240 


051124 


042531 


020104 


EMU : 


.ASCIZ "TRYED TO ACCESS THE LkS REGISTER, AND TRAPPED" 


1829 


012246 


047524 


040440 


041503 






1830 


012254 


051 SOS 


020123 


044124 






1831 


012262 


0201 OS 


04SS14 


AAA4 'W 

020123 






1832 


012270 


042522 


044507 


A^ ^4 'W 

052123 






1833 


012276 


051105 


020054 


047101 






1834 


012304 


020104 


051124 


AP A A A« 

050101 






1835 


012312 


042520 


000104 








1836 


012316 


050050 


024503 


A t A A ^ A 

020040 


0H11 : 


.ASCIZ "(PC) (PS) (SP) TEST*" 


1837 


012324 


020040 


A PA A PA 

050050 


024523 






1838 


012332 


020040 


A A A i A 

02004 C 


A r 4 t PA 

051450 






1839 


012340 


024520 


A *V A A / A 

020040 


A A A ^ A 

020040 






1840 


012346 


042524 


052123 


A A A A 4 V 

000043 






1841 










.EVEN 




1842 


012354 


001116 


001176 


001174 


DT11 : 


SERRPC,IREG7,SREG6,$REG5 


1843 


012362 


001172 








1844 


012364 


000000 






SAVE: 


0 .-SAVE 8*157546 IN TEST U 


1845 


012366 


000000 






0 


1846 




000001 






.END 





CZKUA 


-G 


LINE FREQUENCY 


CLOCK 


BROGRAH 


CZKUAG. 


P11 10-APR-78 


11:05 




A0004 




002104 


387# 


390 






002172 


408# 


411 






002302 


435« 


438 


A0007 

WWW r 




002434 


465« 


468 






002614 


505* 


508 


A001 1 

nww 1 1 




002716 


534# 


537 


A001 7 

nww I c 




003102 


576# 


579 


WWW 1 J 




003172 


606« 


609 


AOOK 

WWW 1 ' 




003560 


685 


696* 


WWW 1 J 




003700 


708 


720* 


WWW 1 w 




004016 


732 


744* 


AOOl 7 

WWW 1 % 




004134 


756 


768* 


wwwt w 




004252 


780 


792* 


A0021 




004370 


804 


816* 


A0022 

W WWt *m 




004526 


843 


845* 


A0023 




004574 


859* 


862 


A002A 




004716 


887« 


888 


A0025 




005026 


911* 


914 


A0026 




005200 


947* 


948 


A0027 




005314 


973* 


974 


A0030 




005454 


991 


1001* 


A0031 




005542 


1021* 


1024 


A0032 




005674 


1058* 


1061 


A0033 




006032 


1091* 


1094 




_ 


000001 


121* 




BITOO 


_ 


000001 


111* 


121 


ilTOl 


_ 


000002 


110* 


120 


JIT02 




000004 


109* 


119 


HT03 




000010 


108* 


118 


HTOA 


— 


000020 


107* 


117 


nios 




000040 


106* 


116 


3IT06 




000100 


105* 


115 


JI T07 


_ 


000200 


104* 


114 


)IT08 




000400 


103* 


113 


)IT09 




001000 


102* 


112 


31 T1 


_ 


000002 


120* 




)IT10 




002000 


101* 


1532 


JITIl 




004000 


100* 


1222 


JIT12 


_ 


010000 


99* 




JIT13 




020000 


98* 


1539 


3IT1A 


_ 


040000 


97* 


1193 


JI T1 5 




100000 


96* 




JI T2 


— 


000004 


119* 




JIT3 




000010 


118* 




31 T4 


_ 


000020 


117* 




JI T5 


— 


000040 


116* 




)I T6 




000100 


115* 




JIT7 


_ 


000200 


1U* 




)I T8 


_ 


000400 


113* 




JIT9 




001000 


112* 








000014 


128* 




JUF1 




000776 


140* 


1066* 


JUF2 




000774 


139* 


1067* 


J0005 




002210 


409 


414* 


30006 




002320 


436 


441* 


J0007 




002452 


466 


471* 
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SEO 0039 



1207 
1215 



1550 



1075 
1100* 



1099* 
1108 



1804 
1825 





LIME FREQUENCY 


CLOCK PROGRAM 


CZKWAG. 


PU 10-APR-78 


11 :05 




B0010 


001632 


506 


511* 


R0011 


002734 


f V f 

535 


54C* 


BO0 12 


003120 


577 


582* 


B0013 


003210 


607 


612* 


BOOH 


003572 


697 


699* 


B001S 


003712 


721 


723* 


)0016 


004030 


745 




30017 


004 U6 


769 


771* 


10020 


004264 


793 


^ Af M 

795* 


a0021 


004402 


817 


819* 


10023 


004612 


860 


865* 


)0025 


005044 


912 


917* 


10030 


005472 


1003 


4 A A f M 

1005* 


J0031 


005560 


1022 


1027* 


10032 


005712 


1059 


1064* 


10033 


006050 


1092 


1097* 


C0007 


002462 




476 


C0010 


002642 


514# 


r 4 ^ 

516 


C0011 


003014 


p r V M 

553* 


556 


C0013 


003224 


616* 


^ 4 A 

619 


C0025 


005070 


904 


925* 


C0031 


005614 


1036# 


1039 


C0032 


005756 


1068 


4 A M 

1075* 


C0033 


006114 


1 101 


4 4 A a M 

1108* 


DOISP = 


177570 


43# 


4 A 4 

191 


DH1 


010543 


243 


4 A ^ A M 

1670* 


DH10 


012136 


278 


1815* 


DH11 


012316 


283 


4 a T ^ ji 

1836* 


DH2 


010674 


248 


4 ^ a a ji 

1688* 


DH3 


011055 


1 P V 

253 


4 ^A A M 

1709* 


DHA 


011241 


tea 

258 


4 ^ V 4 « 

1 731* 


DH5 


011465 


263 


4 a m 

1758* 


DH6 


011610 


^ ^ a 

268 


1 774* 


DH7 


011765 


273 


4 ^Ar m 

1795* 


DISPLA 


001140 


191# 


327* 


DISPRE 


000174 


4 t Am 

149# 


327 


OSUR = 


177570 




4 AA 

190 


DTI 


010624 


'Sit 

244 


1680* 


DT10 


012222 


279 


4 a M 

1825* 


DT11 


012354 


^ a / 

284 


4 a / jt 

1842' 


DT2 


010746 


^ / A 

249 


4 A t%A M 

1696* 


)T3 


011126 


254 


4 ^4 ^ M 

1717* 


DT4 


011376 


^ r A 

259 


4 Y / a M 

1748* 


DT5 


011536 


264 


4 A m 

1766* 


)T6 


011662 


269 


4 ^a ^ M 

1782* 


)T7 


012044 


27 It 


1804* 


)0007 


002474 


457 


479* 


>0010 


002654 


492 


C 4 A Jl 

519* 


>0011 


003032 


554 


r r A M 

559* 


)0013 


003242 


617 


622* 


)0031 


005632 


4 A Y 7 

1037 


4 A / ^ M 

1042* 


:HTVEC= 


000030 


4 T 4 M 

131* 


Y AA ^ 

309* 


:H1 


010462 


242 


1661* 


:nio 


012062 


ill 


4 a A^ M 

1807* 


•HI! 


012240 


262 


1828* 


:«2 


010642 


2i*7 


1683* 
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SEO 0040 



1006 



1110 



1236^ 1531* 



310* 



r 
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SEO 



En3 

I. «i ^ 


01076? 


?5? 

C J C 


1699# 




01 1 14? 


?57 


17?0* 

lib W 




01 1414 


CwC 


1 751# 


En6 


011552 


267 

b w r 


1769# 




01 1676 


?7? 


178S# 

1 f V Jff 


t n R * I- V ~ 


000004 

w w 


124# 


1198 


E0001 


001 730 


340 


346# 


E0002 


001 776 


360# 




E0003 


00?042 

Wfc fc 


374f 




E0004 


002116 

Wfc 1 ■ w 






E0005 


00??04 

Wfc c v~ 


41 ?# 




E0006 


002314 

Wb ^ 1 ^ 


439f 




E0007 


002446 


469# 




E0010 


002626 

Wb w w V 


509# 




E0011 


002730 

Wfc r 


538f 




E0012 


003114 


580# 




E0013 


003204 


61 0# 




EOOU 


003570 


698f 




E0015 


003710 


722# 




E0016 


004026 


74 6# 




E0017 


004144 


770# 




E0020 


004262 


794f 




E0021 


004400 


81 8# 




E0022 


004524 


844# 




E0023 


004606 

w WWW 


863# 




=0024 


004736 


879 


892# 


E002S 


005040 


91 5# 




E0026 


005220 


942 


952# 


E0027 


005346 


979# 




E0030 


005506 


1001 


1009f 


E0031 


005554 


1025# 


1033 


E0032 


005706 


1062# 




E0033 


006044 


1095« 




■10006 


002342 


446# 




=10007 


002470 


477# 




E10010 


002650 


51 7# 




nooi2 


003134 


587f 




M0013 


003236 


620f 




n0023 


004630 


869# 




n0025 


005064 


92 3# 




h0031 


005626 


1040jV 




=10033 


0061 2^ 


1110# 




hoo5 


002226 


418# 




M011 


003026 

W W^ Wh w 


550 


557* 


=20007 


002502 


481# 




=20010 


002662 


521# 




=20011 


003040 


5631" 




=20013 


003334 


64 3# 




=20025 


005100 


92 7# 




=20031 


005640 


1046# 




=30013 


003366 


653« 




=40013 


003444 


669# 




=0013 


003262 


627# 


632 


6NS = 


• [} 


148 


1584 


G0013 


003276 


628 


631# 


40013 


003322 


639« 


642 



1199* 1201* 1204* 



1585 



1586 



1587 



1588 



CZ<UA-G LINE 
CZKUAG.PII 



FREQUENCY 
10-APR-78 



IOTVEC= 

10001 

lOOU 

10015 

10016 

10017 

10020 

10021 

10022 

10023 

10026 

J0013 

KSTART 

K0013 

LKS = 



10013 

nooi3 

NOP 

N0013 

PIRQ = 

PIRQVE= 

POUNES 

POUPOP 

POWPUS 

PRO = 

PR1 

PR2 = 
PR3 

»R4 = 
»R5 = 
»R6 
PR7 

PS 

PSU : 

>URVEC= 

RESVEC: 

tOOOl 

?0002 

^0003 

moi, 

10005 
)0006 
?0007 
{0010 
J0011 
?0012 
?0013 



000020 

001722 

003552 

003672 

00A010 

00A126 

00A2AA 

004362 

004506 

004612 

005206 

003340 

001400 

003354 

177546 



003372 
003420 
000240 
003434 
177772 
000240 
010254 
010460 
010456 
000000 
000040 
000100 
000140 
000200 
000240 
000300 
000340 

177776 
177776 
000024 
000010 
001716 
001756 
002032 
002070 
002164 
002274 
002412 
002544 
002710 
003074 
003140 



CLOCK 
11:05 

129* 
344# 
695# 
71 9# 
743* 
767# 
791* 
815* 
841* 
866* 
949* 
640 
153 
649* 
1?7* 
443* 
553 
630* 
699* 
8U* 
905* 
999* 
1680 
650 
661* 
138* 
662 

41* 
135* 
1604 
1603 
1602 
58* 
59* 
60* 
61* 
62* 
63* 
64* 
65* 
938 
38* 
39* 
130* 
125* 
342 
355 
370 
383 
401 
428 
456 
491 
531 
573 
596* 



PROGRAM 



307* 



645* 
290* 
652 
344* 
444 
574* 
636* 
718* 
816 
911 
1007* 
1696 
655* 
666 

665* 



1633* 
1660* 
1659* 



497 
544 
402 
967 
39 
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308* 



SEQ 0042 



358 


372 


385* 


387 


406* 


408 


415* 


416 


463* 


465 


472* 


479 


494* 


505 


512* 


519 


576 


583* 


585 


603* 


606 


614* 


616 


623* 


639 


647* 


649 


657* 


658 


660* 


661 


664* 


720 


723* 


742* 


744 


747* 


766* 


768 


771* 


819* 


840* 


842 


845* 


857* 


859 


866* 


867 


921* 


925 


944* 


946* 


950 


966* 


975* 


976* 


1019* 


1021 


1034* 


1036 


1056* 


1058 


1069* 


1089* 


1717 


1782 











429 
1029 
497* 



313* 314* 

343* 
356* 
371* 
384* 
406* 
433* 
459* 
494* 
532* 
574* 
656 



433* 
532* 
624 
687* 
790* 
880* 
977 
1091 



435 
534 
626* 
694* 
792 
886* 
988* 
1102* 



442* 
551* 
627 
696 
795* 
890 
997* 
1117* 



598 
544* 
1594* 



689 



713 



737 



761 



785 



809 



835 



882 



906 



1595* 1607* 1622* 1623* 



CZKWA 


-G 


LINE FREQUENCY 


CLOCK 


PROGRAM 


CZKWAG. 


P11 10-APR-78 


11 :05 




ROOU 




0035A2 


683 


693# 


R0015 




003662 


711 


71 7# 


R0016 




OOAOOO 


735 


741/r 


R0017 




004116 


759 


765# 


R0320 




004234 


783 


7894^ 


R0021 




004352 


807 


81 3« 


R0022 




004476 


833 


839ir 


R0023 




004566 


856 


85 7# 


R0024 




004676 


878 


881iV 


R0025 




005006 


902 


9054^ 


R0026 




005162 


937 


944# 


R0027 




005266 


963 


966# 


R0030 




005406 


990 


991# 


R0031 




005534 


1018 


1019# 


R0032 




005666 


1055 


10564^ 


R0033 




006024 


1088 


1089# 


R101 3 




003156 


602M 




R2013 




003210 


61 3# 




R3013 




003306 


635# 




HOI 3 




003340 


646# 




SAVE 




012364 


688* 


701 


STACK 




001100 


35# 




START 




001450 


30U 


1175 


STICLHT= 


177774 


40# 




STHES 




010322 


300 


16404^ 


SUR 




001136 


190« 


324 


SWREG 




000176 


150f 


326 


SWO 




000001 


9l» 




SUOO 




000001 


63» 


93 


SU01 




000002 


82# 


92 


SU02 




000004 


81# 


91 


SW03 




000010 


iQ» 


90 


SUOA 




000020 


79» 


89 


SU05 




000040 


78# 


88 


SU06 




000100 


770 


87 


SU07 




000200 


76» 


86 


SW08 




000400 


75» 


85 


SU09 




001000 


74# 


84 


SW1 




000002 


92# 




SU10 




002000 


73/r 




SU11 




004000 


72» 




SU12 




010000 


71# 




SW13 




020000 


70# 




SWU 




040000 


69/r 




SU15 




100000 


68# 




SU2 




000004 


91# 




SU3 




000010 


900 




SWA 




000020 


69» 




SU5 




000040 


88# 




SU6 




000100 


87# 




SW7 




000200 


86# 




SU8 




000400 


B5» 




SU9 




001000 


84# 




TBITVE 




000014 


^26» 




ICRLf 




000200 


y272 


1311/r 


THT 




00001 1 


1270 


1310# 
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SEQ 004: 



1844# 



326* 1193 



1207 



1209 



1215 



1222 1532 



1539 



1544 1550 
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SEO O^AA 



TKVEC = 000060 
TPVEC = 00006A 
TRAPVE= 00003A 
TRAPO 006266 



TRPNES 
TRPH2S 
TRTVEC= 
TYPDS = 
TYPE = 

TYPCC = 

TYPON = 

TYPOS = 

T0001 

T0002 

T0003 

TOOOA 

T0005 

T0006 

T0007 

T0010 

T0011 

T0012 

T0013 

TOOU 

T0015 

T0016 

T0017 

T0020 

T0021 

T0022 

T0023 

T0024 

T0025 

T0026 

T0027 

T0030 

T0031 

T0032 

T0033 

T0034 

WORD 

SBOAOR 

SBDDAT 

SBELL 

SCHARC 

KHTAG 

SCNl 

few = 

fCH3 : 
ISCNA : 
fCRLf 
SOBLK 
SOOAGN 
SOTBL 



010371 
01 OA 32 
OOOOU 
lOAAOA 
10A400 

10AA01 

10AA03 

10AA02 

001672 

001732 

002000 

0020AA 

002120 

002230 

0023AA 

002 50A 

00266A 

0030A2 

003136 

003A60 

003612 

003730 

00A0A6 

00A16A 

00A302 

00AA20 

00A53A 

00A632 

00A7A0 

005102 

005222 

005350 

005510 

0056A2 

006000 

0061 3A 

001 23A 

001122 

001126 

001 22A 

007022 

001100 

000010 

000020 

000010 

000010 

001231 

0072A2 

0062A2 

007232 



133# 
13A« 
132# 
353 
93A 
1162 
1169 

127# 
11A3 
11A1 
153A 
1165 
1587* 
1586# 
332 
3A5 
359 
373 
388 
A13 
AAO 
A 70 
501 
539 
581 
611 
700 
72A 
7A8 
772 
796 
820 
829 
86A 
891 
916 
951 
965 
1008 
1026 
1063 
1096 
225* 
i8A/r 
186f 
220* 
1286* 
172* 
202* 
202* 
200* 
210* 
222* 
1338 
1137 
13A1 



311* 
367 
960 
16A8* 
165A* 

1588* 

11AA 
15A2 
1A76 



339* 

352* 

366* 

380* 

397* 

A17 

AA5 

A78 

510 

5A8 

586 

621 

707* 

731* 

755* 

779* 

803* 

828* 

852* 

868 

898* 

92A 

959* 

978 

1015* 

lOAl 

1076 

1109 
972* 

30A 
153A 
1293 
302 
203* 
203* 
202 
211* 
1166 
1372 
1U8 
1376* 



3T2» 

381 

986 



1166 

158A* 

1500 



1155 



A2A* 

A52* 

A80 

518 

562 

595* 

6AA 



87A* 

926 

985* 

10A5 
1085* 
1116* 
973* 



1558 
1302* 
309 
20A* 
20A* 

212* 
1276 
1380* 
115A* 



398 A25 
1016 1053 



1275 
162A 
1585* 



1605 



1372 



453 
1086 



1AA2 



A 89 
11601 



1A6B 



529 



571 



830 



853 



875 899 



U85 



1A87 



1A90 



1A92 



1A96 1503 



A88* 

520 
569* 


528* 


558 








65A 


668 


681* 








933* 












1052* 


1079 










998* 


1005* 


1659 


1660 






1307* 
315 
205* 
205* 


316 

206* 

206* 


317 

207* 

207* 


208* 
208* 


209* 
209* 


210* 
210* 


213* 
1313 


21A* 
1A68 


215* 
1A87 


216* 

1A92 


217* 
1A96 


218* 

15A2 



1558 



CZKWA-G LINE 
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SEQ 004 



SENDAD 


006232 




1 ^A 

1 60 


1 1 C A* 


15/7 

1 5h f 






















•ENDCT 


006200 




31 5 


1 1 7Qil 
























SENDnG 


AAZ. 1 / 

006246 




11/1 


I 1 C ^ if 

I I 56* 
























SENULL 


A AZ. '3^7 

006263 




1 1 ^H 


I 1 CA« 

I I 5t* 
























tEOP 


006144 




1129# 


























»cOrC T 


A AZ. 

0061 f 2 




7 1 C * 

315* 


I 1 7^ i» 

I I 36* 


I 1 / A 

I I hU 
























1 AT 

oonoi 




1 7Cil 


1 1 BO 


1511 

1 cl 1 


1517 
1 c I 3 


1510* 
1 C 1 7* 


1 5An 

1 CHU 


1 550* 
1 3C7" 


1 330 












•cRnAX 


001 M 5 




1 0 1 il 

1 81* 


7 1 fi * 


1017 

1 cl 3 


1 575* 
1 c33* 


1 5AA 
1 chU 


















# P A AAA 

•ERROR 


007634 




7 AA 

30t 


1 5 0 0 • 

I 5^^* 
























»cRRPC 


oon 16 




1 Q 0 « 

1 Hi* 

10 05 


1/7/ 

1 BA 0 
1 Ohc 


1 5 7iL • 

1 536* 


1 5 77* 

1 53' * 


1 5 7ft 

1 330 


155ft 
1 330 


1 AAA 
1 OOU 


1 AQA 
1 070 


1717 

\ f \ f 


1 7A S 
1 f hO 


1 7AA 
1 ' 00 


1 7B5 

1 'Oc 


1 BA/ 

1 oUh 


SERRTB 


AA 1 7^ 

001 c5b 




0/ 1 « 


1 / B 0 
1 HOC 
























SERRT Y 


ArtTC AA 

OOr 500 




1 / ^ 7 Jl 


1 C / 1 

1 54 1 
























# P B T T 1 

•cRTTL 


AAi 1 1 *5 

001 lie 




1 70 J> 
1 /V* 


1 C 7 5 * 

1 535* 


1 5 5 B 

1550 






















# F C ^ A O 

•cSCAP 


AAt 




O 1 Ail 


7 1 7 * 

3 1 f * 


1 0 7A * 

1 c3h* 


1557 
1333 


1555 
1 333 


1 5CB 

I 3 '0 
















»r ILLC 


AA 1 i c y 
00 1 1 54 




1 QQ il 


1 07Q 

icry 


1717 

1313 






















• F ILLd 


UUl 1 5 3 




1 Q7ir 


13 13 
























•uDnUK 


AAI 1 5rt 




\ O JW 


ABA • 
OOh " 


000 


Ot 3 ' 


7ni • 

» U 1 " 


715* 

f 1 c " 


710* 

( \ T" 


73S» 

f c J " 


77A* 

f DO " 


r H J " 


7^0* 

/ H T " 


' OU" 


7A7* 
f O f " 








777* 


7BA • 
/ Oh • 


701 • 
/ 7 1 " 


707* 


ftAft* 
OUO" 


ftl 5* 

o 1 3 " 


fl51 * 
Oc 1 " 


fl7A* 
03H" 


flA 1 * 
Oh 1 " 


1 7AA 
1 1 OO 








•uUUA 1 


AAI 1 T/ 




1 B5ir 


757* 
3 J ' * 


307" 


7flA* 
30h " 


Ann* 

hUU* 


A57* 
HC » " 


h33" 


C7n* 
3 f U" 


Aft5* 
OOc" 


71 A* 
1 1 U" 


77A* 
f 5h " 


75ft* 
' 30" 


7ft5* 
' Oc " 








OUO" 


B70* 
03c • 


03 J • 


BA7 
00 r 


ft77* 


flon 

OtU 


oni • 

tU • " 


T jO" 


t5w 


tOc " 


077 

Til 


QflO* 
70t" 


1 077* 

1 U ' ' " 








1 1 1 A* 


1 /^BA 
1 OOU 


1 BAA 
1 OUh 


1 B55 
1 Oc 5 


























1 1 A 5if 
1 1 *» jK 


























c IJI\ — 


AAAAAA 
OOOOUO 




1 fl 

1 O 


























ft f ruT 
SI LNT 


AAI 1 A/ 

UUl 1 Oh 




1 Ti^M 


1 0 Oil* 

1 ceo* 


1557 


1 550* 

1 CCT* 


1 570 
1 £3y 


















lILLUr 






1 JTTH 


1 Oc f ' 
























ft T TCMD 

• I It no 


AAI 1 1 A 
UO M 1 H 




1 ftAtf 

1 OU* 


1 A 71 
1 H f 1 


1 578* 
1 330* 


155ft 

1 330 




















»Lf 


AAI 570 




0 0 7* 
CCD' 


1717 

1313 


1 55fi 
1 330 
























AAI 1 Fit. 
UU 1 1 UO 




1 77* 


710* 

3 1 T" 


7A5* 
3hc ■ 


353" 


77n* 

3 1 U" 


7fl7* 
303* 


Am * 

hU 1 " 


A5ft* 

HCO" 


A5A* 
H 50" 


AQ1 • 

H T 1 " 


571 * 

3 3 1" 


S77* 
3 ' 3" 


An?* 

OUc " 








A1 7* 


033* 


AAA* 
OhO* 


030* 


Afl7* 
003* 


711* 


77^* 

f 35 " 


7^0* 

f 3t" 


7ft7* 
1 03" 


OU f " 


A77* 
033" 


030" 


O ' O" 








ono* 

tUc ■ 


077* 


0A7* 

t03" 


oon* 


mill* 

1 U 1 O" 


1 nss* 

1 U5 5" 


inftii* 

i vOO" 


1 51 7* 


1573* 
1 C 3t" 


1 577 

1 CDI 


1570 








Am 1 in 
UU1 1 lU 




1 7AM 


70A* 
3cU" 


1517 
1 C 1 f 


1577* 
1 c33" 


1 570 


1 ^C5 
















AHA r 1 — 


****** 

W W W w w w 


u 


771 


1575 
1 C3c 


1 5AA 
1 cOh 


15AA 
1 3hh 






















UUOO 1 U 




1 ?7n 

1 c3U 


1 570Jr 
1 c3tw 
























•NULL 


nni 1 55 

UU 1 1 J £ 




196f 


1 5ftl 
1 c o 1 


1717 






















cnr iiT 
•UCN 1 


JUf *• ' •» 




1 •• 1 H " 


1 AA7* 

1 HH J" 


1 A5Aif 
1 H 50* 






















•unuuc 


UUf •» f 0 




1 AAO* 
1 "•Ut" 


1 A 1 7* 
1 H 1 3" 


1 A 1 ft 
1 H 1 o 


1t51 • 
1 HC 1 " 


1 A75* 
1 h3c " 


1 H 5o« 
















cnv/c D 


AAA57Z, 
UUO jf* 




1 1 OA 

1 1 TH 


1 5in 

1 c 1 U 


1 51 fl 
1 C 1 0 


1 CcO 


1 57/>ir 




















AAI inn 

UU 1 1 UU 




1 77J 


1 t 77* 

1 1 33" 


1 1 7/i* 

1 1 JH ' 


11£? 
1 Ihc 


11 

1 1 50 


1 CCH 


1 ?£0 

1 CHV 














cpnupp 

•rUWCn 


U 1 VCHH 




1 

1 Oc} 
71 7 

J ! J 


1 03U* 
























wrwKvH 


ninn7A 

U 1 UU ' •! 




1 50£it 


1 Occ 






















•rwKnu 


ni n?T? 

U 1 U< jc 




1 

1 Oc3* 


























CDUDI ID 


Ai ni A? 

U 1 U 1 Oc 




1 DUr 


1 A1 5# 
























•UUC J 


AAI 5Tn 
UU 1 c jU 




CC 1 * 


1717 


1 S^A 

1 5 50 






















conruD- 




u 


1 5flQ 


























CDnncr- 




1 1 

u 


1 580 

1 JOt 






























1 1 

u 


1 JOt 


























connr T- 


^ ft # ^ 4 4 


1 1 

u 


1 jOt 




























nni 1 5A 

UU 1 1 70 




9nnir 

cUUV 




























nni lAA 

UU 1 10U 




9n9# 
eUcw 


1 55S« 
1 5eO* 


























00116? 






669* 


1 748 






















IREG2 


001164 




204 f 


670* 


1748 






















tRE63 


001166 




205* 


























IREGA 


C01170 




206f 




















1825 


1842 




IREG5 


001 1 72 




207M 


1526* 


1527* 


1680 


1696 


1717 


1748 


1766 


1782 


1804 




SREG6 


001174 




208# 


1523* 


1524* 


1680 


1696 


1717 


1748 


1766 


1782 


1804 


1825 


1842 





H 4 

CZKWA-G LINE FREQUENCY CLOCK PROGRAM HACYll 30A{1052) 19-APR-78 U:25 PAGE 44 
CZKWAG.P11 lO~APR-78 11:05 CROSS REFERENCE TABLE USER SYMBOLS 



SEO 0046 



SRtG7 
Sk2A : 
$SAVRE= 
tSAVR6 
tSCOPE 
$SETUP= 
SSTUP = 
SSVLAD 
tSVPC = 

ssyR : 



SSURMK: 

STiNES 

STKB 

JTKS 

STHPC 

STHPI 

$THP2 

$THP3 

STnP4 

$THP5 

STHP6 

STHP7 

$TN = 

STPB 

STPFLG 

$TPS 

STRAP 

$TRP - 

STRPAD 

STSTNS 

STYPBN= 

STYPOS 

STYPE 

$TYPEC 

STYPEX 

STYPOC 

STYPON 

STYPOS 

SXTSTR 

SOFILL 

S40CAT: 



001176 
■**••* y 
t****t [} 

010242 
006340 
000037 
177777 
006546 
000204 
167400 



000000 
001220 
001144 
001142 
001200 
001 2C2 
001204 
001206 
001210 
001212 
001214 
001216 
000000 
001150 
001155 
001146 
010040 
000005 
J 10062 
001102 
•*•••• u 

007026 
006612 
006756 
007024 
007276 
007312 
007252 
006352 
007475 

012370 



209# 
1589 
1589 
1606* 
307 
8« 
S« 
1202 
158* 
5« 
317 
1193 
1514 
29 
218# 
193# 
192* 
210# 
211# 
212# 
21 3# 
214# 
215# 
216# 
21 7# 
6f 
195# 
199# 
194# 
311 
1575* 
1572 

174* 
1589 
1326* 
299 
1278 
1303 
1412* 
1411 
1407* 
1196* 
1408* 
1193 
144* 
1160 
1731* 



1525* 


1680 


1696 


1717 


1748 


1766 


1782 


1804 


1825 


1842 


'.612 


161 3* 


1614* 


1629* 














11 Q1 # 


















1547 


507 


309 


31 1 


313 


315 


316 


317 


319 


1131 


1231* 




















163 


















219 


18 


23 


24 


25 


26 


27 


28 


29 


218 


319 


320 


1126 


1132 


1146 


1155 


1156 


1183 


1184 


1185 


1205 


1?07 


1208 


1211 


1212 


1213 


1220 


1221 


1222 


1233 


1515 


1516 


1517 


1518 


1532 


1539 


1544 


1550 


1558 


1626 


30 


1187 


1188 


1209 














316« 


1132* 


1220* 


1227 


1230* 


1239 











18 
1299* 
1258 
1297 
1567* 
1585* 
1583* 
1131* 

1588 

1161 

1285 

1305 

1585 

1414* 

1586 

1412* 
1541 
148* 
1239 
1824* 



220 316 
1186 1187 
1236 1239 



1313 
1313 
1313 

1586* 

1182 



1168 
1292 
1308* 

1587 



U22 

158 
1240 



1587* 1588* 1589* 
1209 1231* 1236 



1258* 1575 1584 
1297* 1298 



1240 



1527 



1531 



1558 



U57* 

159* 
1313 



161* 163* 
1380* 1506* 



171* 
1558 



224 
1609 



289* 
1628 



305 319 
1658* 1695* 



320 1156 
1747* 1765* 



CZKUA-G LIME FREQUENCY 
CZKWAG.P11 10-APR-78 



CLOCK PROGRAM 
11:05 



I U 

HACY11 50A(1052) 19-APR-78 U:25 ^AGE «6 
CROSS REFERENCE TABLE — MACRO NAMtS 



SEO 004 



Aft 1 TlTi 


1 f\Lt 


225 






1 M 


1 36* 






1 f 


1 36* 










360 




J JO 


S57 


563 






109S 






^(^7R 


1111 
1 1 1 1 


U J V ^ r L 


1# 


1 36* 




f;F T PR I 


1 # 


Af 


791 


Milt T 




1 36* 






1f 


T 36* 




POP 


1 f 


1 36* 


1 367 


PUbH 


1* 


136* 


1326 


RFPORT 


If 








1 5071 


1523 








339 

J J T 


352 




755 


779 


803 

U w J 


SF TPR I 


If 

967 


8* 

1029 


402 


SETRAP 


gjr 


353 


367 




960 


986 


1016 


SETTRA 


1 575* 


1 585 


1586 


SETUP 


1* 


136* 


301 


SKIP 


\$ 


136* 




Si ASH 


\$ 


136* 




SPACE 


136# 






STARS 


1* 


8* 


136^ 


SURSU 


1# 


321* 




TRMTR'^ 


1575* 






TYPBIN 


1* 


136* 




T YPOFC 


1* 


1 36* 


1142 


TYPNAM 


1* 






TYPNUn 


1* 


136* 




TYPOCS 


1* 


136* 




TYPOCT 


1f 


136* 


1474 


TVPTXT 


1* 


136* 




UAI TLK 


8* 


407 


434 




1035 


1057 


1090 


SSflriE 


164* 


202 


203 


SSCHTM 


164* 


210 


211 


$SFSCA 


1* 


1 36* 




SSNEUT 


1* 


136' 




ttSET 


1575* 


1585 


1586 


SSSKIP 


1* 


136* 




.EQ'JAT 


1* 


8* 


31 


!heaoe 


1* 


8* 




.KT11 


1* 






. SETUP 


1* 


8* 




isURHI 


1* 


8* 


18 


.SURLO 


8* 


30* 




.$ACT1 


1* 


8* 


154 


.$APTB 


1* 






.SAPTH 


1* 






.SAPTY 


1* 






.SASTA 


1* 






.SCATC 


1* 


8* 


141 





J7 1 


LA? 


^ 1 R 


580 


587 


610 


620 


iIAQ 

OUT 




Q1 S 




1 ^1 h 

1 O 1 D 








1 SQ/« 


I OUC 








380 


397 


424 


828 


852 


874 


898 


429 


598 


689 


713 


381 


398 


425 


453 


1053 


1086 






1587 


'588 






154 


164 


211* 


1120 


1498 








464 


504 


533 


552 


204 


205 


206 


207 


212 


213 


214 


215 


1587 


1588 







4 39 


446 


469 


477 


643 


653 


671 


698 


927 


952 


979 


1009 


452 


488 


528 


569 


933 


959 


985 


1015 


737 


761 


785 


809 


489 


529 


571 


830 



1176 1240 1313 1381 



575 605 615 638 

208 209 
216 217 



481 


509 


517 


521 


722 


746 


770 


7V4 


1025 


1040 


1046 


1062 


595 


681 


707 


731 


1052 


1085 


iiie 


1130 


835 


881 


906 


938 


853 


875 


899 


934 


1459 


1507 


1558 


1589 


648 


858 


910 


1020 



CZKWA-G LINE 
C2KWAG.P11 

.ICHTA 
.S0B2D 
.tDB20 
.tOIV 
.IE OP 
.lERRO 
.tERRT 
. »HUL T 
•SPOWE 
.tRAND 
.tRODE 
-IRDOC 
.IRE AO 
.tR2AZ 
.tSAVE 
.SSB2D 
,tSB20 
.»SCOP 
.1SI2E 
.»SUPR 
.STRAP 
.STYPB 
.STYPO 
.STYFE 
.»TYPO 
.UOCA 



FREQUENCY 
lO-APR-78 

8# 



8# 
8# 
8# 



8» 
8# 
6M 



CLOCK 
11:05 

164 



1120 
1507 
U59 



8* 1589 



8# 1176 



8» 1558 



1313 
1240 
1381 



J 4 

PROGRAM HACY11 30A(1052) 19-APR-78 14:25 PAGE 
CROSS REFERENCE TABLE ~ MACRO NAMES 



47 



SEO 0048 



. ABS. 012570 000 



ERRORS DETECTED: 0 



CZKWAG.6IN,CZKWAG.LST/CRF/S0L/NL:T0C=DSKZ:CZKUAG.SHL,DSKH:CZKUA6.P11 
RUN-TIHE: 16 12 1 SECONDS 
RUN-TIHE RATIO: 398/30=13.2 
COKE USED: 28K (55 PAGES) 



